/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / BASCRUNCH / !BasCrunch_BasCrunch

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 42 61 73 43 72 75 6e 63 |..... > |BasCrunc|
|00000010| 68 0d 00 14 04 0d 00 1e | 35 f4 20 42 41 53 49 43 |h.......|5. BASIC|
|00000020| 20 56 20 70 72 6f 67 72 | 61 6d 20 63 72 75 6e 63 | V progr|am crunc|
|00000030| 68 65 72 20 28 43 29 20 | 4d 69 6b 65 20 48 61 72 |her (C) |Mike Har|
|00000040| 72 69 73 6f 6e 20 31 39 | 38 39 0d 00 28 04 0d 00 |rison 19|89..(...|
|00000050| 32 4b f4 20 41 70 6f 6c | 6f 67 69 65 73 20 66 6f |2K. Apol|ogies fo|
|00000060| 72 20 74 68 65 20 6d 65 | 73 73 79 20 6e 61 74 75 |r the me|ssy natu|
|00000070| 72 65 20 6f 66 20 74 68 | 69 73 20 63 6f 64 65 20 |re of th|is code |
|00000080| 2d 20 69 74 20 77 61 73 | 20 64 6f 6e 65 20 69 6e |- it was| done in|
|00000090| 20 61 20 68 75 72 72 79 | 21 0d 00 3c 05 f4 0d 00 | a hurry|!..<....|
|000000a0| 46 04 0d 00 50 4f f4 20 | 54 68 69 73 20 70 72 6f |F...PO. |This pro|
|000000b0| 67 72 61 6d 20 68 61 73 | 20 62 65 65 6e 20 70 75 |gram has| been pu|
|000000c0| 74 20 69 6e 74 6f 20 74 | 68 65 20 70 75 62 6c 69 |t into t|he publi|
|000000d0| 63 20 64 6f 6d 61 69 6e | 20 69 6e 20 74 68 65 20 |c domain| in the |
|000000e0| 68 6f 70 65 20 74 68 61 | 74 20 73 6f 6d 65 6f 6e |hope tha|t someon|
|000000f0| 65 0d 00 5a 4b f4 20 77 | 69 74 68 20 74 68 65 20 |e..ZK. w|ith the |
|00000100| 74 69 6d 65 20 61 6e 64 | 20 69 6e 63 6c 69 6e 61 |time and| inclina|
|00000110| 74 69 6f 6e 20 77 69 6c | 6c 20 62 65 20 69 6e 73 |tion wil|l be ins|
|00000120| 70 69 72 65 64 20 74 6f | 20 64 6f 20 61 20 64 65 |pired to| do a de|
|00000130| 63 65 6e 74 20 6d 61 63 | 68 69 6e 65 0d 00 64 19 |cent mac|hine..d.|
|00000140| f4 20 63 6f 64 65 20 76 | 65 72 73 69 6f 6e 20 6f |. code v|ersion o|
|00000150| 66 20 69 74 21 0d 00 6e | 05 f4 0d 00 78 4e f4 20 |f it!..n|....xN. |
|00000160| 54 68 69 73 20 75 74 69 | 6c 69 74 79 20 63 72 75 |This uti|lity cru|
|00000170| 6e 63 68 65 73 20 61 20 | 42 41 53 49 43 20 70 72 |nches a |BASIC pr|
|00000180| 6f 67 72 61 6d 20 62 79 | 20 73 68 6f 72 74 65 6e |ogram by| shorten|
|00000190| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 73 2c 20 73 |ing vari|ables, s|
|000001a0| 74 72 69 70 70 69 6e 67 | 0d 00 82 3e f4 20 6f 75 |tripping|...>. ou|
|000001b0| 74 20 52 45 4d 73 20 61 | 6e 64 20 61 73 73 65 6d |t REMs a|nd assem|
|000001c0| 62 6c 65 72 20 63 6f 6d | 6d 65 6e 74 73 2c 20 61 |bler com|ments, a|
|000001d0| 6e 64 20 63 6f 6e 63 61 | 74 65 6e 61 74 69 6e 67 |nd conca|tenating|
|000001e0| 20 6c 69 6e 65 73 0d 00 | 8c 1b f4 20 54 68 69 73 | lines..|... This|
|000001f0| 20 68 61 73 20 33 20 62 | 65 6e 65 66 69 74 73 20 | has 3 b|enefits |
|00000200| 3a 0d 00 96 4c f4 20 31 | 29 20 49 74 20 74 61 6b |:...L. 1|) It tak|
|00000210| 65 73 20 6c 65 73 73 20 | 6d 65 6d 6f 72 79 20 2d |es less |memory -|
|00000220| 20 74 68 65 20 73 61 76 | 69 6e 67 20 63 61 6e 20 | the sav|ing can |
|00000230| 62 65 20 6f 76 65 72 20 | 35 30 25 20 77 69 74 68 |be over |50% with|
|00000240| 20 62 69 67 20 70 72 6f | 67 72 61 6d 73 0d 00 a0 | big pro|grams...|
|00000250| 33 f4 20 75 73 69 6e 67 | 20 6c 6f 6e 67 20 76 61 |3. using| long va|
|00000260| 72 20 6e 61 6d 65 73 20 | 28 65 2e 67 2e 20 77 69 |r names |(e.g. wi|
|00000270| 6d 70 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 73 29 |mp appli|cations)|
|00000280| 0d 00 aa 20 f4 20 32 29 | 20 49 74 20 69 6d 70 72 |... . 2)| It impr|
|00000290| 6f 76 65 73 20 70 65 72 | 66 6f 72 6d 61 6e 63 65 |oves per|formance|
|000002a0| 0d 00 b4 35 f4 20 33 29 | 20 49 74 20 6d 61 6b 65 |...5. 3)| It make|
|000002b0| 73 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 76 65 |s the pr|ogram ve|
|000002c0| 72 79 20 64 69 66 66 69 | 63 75 6c 74 20 74 6f 20 |ry diffi|cult to |
|000002d0| 72 65 61 64 21 0d 00 be | 05 f4 0d 00 c8 4b f4 20 |read!...|.....K. |
|000002e0| 53 70 61 63 65 20 73 61 | 76 69 6e 67 20 77 61 73 |Space sa|ving was|
|000002f0| 20 74 68 65 20 70 72 69 | 6d 65 20 72 65 61 73 6f | the pri|me reaso|
|00000300| 6e 20 66 6f 72 20 77 72 | 69 74 69 6e 67 20 74 68 |n for wr|iting th|
|00000310| 69 73 20 63 72 75 6e 63 | 68 65 72 2c 20 61 73 20 |is crunc|her, as |
|00000320| 49 20 77 61 73 0d 00 d2 | 2b f4 20 70 75 74 74 69 |I was...|+. putti|
|00000330| 6e 67 20 42 41 53 49 43 | 20 70 72 6f 67 73 20 69 |ng BASIC| progs i|
|00000340| 6e 74 6f 20 70 6f 64 75 | 6c 65 20 52 4f 4d 73 2e |nto podu|le ROMs.|
|00000350| 0d 00 dc 05 f4 0d 00 e6 | 49 f4 20 56 61 72 69 61 |........|I. Varia|
|00000360| 62 6c 65 20 63 72 75 6e | 63 68 69 6e 67 20 69 73 |ble crun|ching is|
|00000370| 20 68 69 67 68 6c 79 20 | 6f 70 74 69 6d 69 73 65 | highly |optimise|
|00000380| 64 2e 20 54 68 65 20 73 | 74 72 61 74 65 67 79 20 |d. The s|trategy |
|00000390| 69 73 20 61 73 20 66 6f | 6c 6c 6f 77 73 3a 0d 00 |is as fo|llows:..|
|000003a0| f0 4c f4 20 46 6f 72 20 | 65 61 63 68 20 6f 66 20 |.L. For |each of |
|000003b0| 72 65 61 6c 2c 69 6e 74 | 2c 73 74 72 69 6e 67 2c |real,int|,string,|
|000003c0| 72 65 61 6c 20 61 72 72 | 61 79 2c 73 74 72 69 6e |real arr|ay,strin|
|000003d0| 67 20 61 72 72 61 79 2c | 69 6e 74 20 61 72 72 61 |g array,|int arra|
|000003e0| 79 2c 46 4e 2c 50 52 4f | 43 3a 0d 00 fa 50 f4 20 |y,FN,PRO|C:...P. |
|000003f0| 31 29 20 6c 65 61 76 65 | 20 61 6c 6c 20 73 69 6e |1) leave| all sin|
|00000400| 67 6c 65 20 6c 65 74 74 | 65 72 20 76 61 72 73 20 |gle lett|er vars |
|00000410| 61 6c 6f 6e 65 20 2d 20 | 74 68 69 73 20 69 73 20 |alone - |this is |
|00000420| 64 75 65 20 74 6f 20 74 | 68 65 20 61 73 73 75 6d |due to t|he assum|
|00000430| 70 74 69 6f 6e 20 74 68 | 61 74 0d 01 04 4f f4 20 |ption th|at...O. |
|00000440| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 75 73 65 73 |the prog|ram uses|
|00000450| 20 73 69 6e 67 6c 65 20 | 6c 65 74 74 65 72 73 20 | single |letters |
|00000460| 66 6f 72 20 61 20 72 65 | 61 73 6f 6e 20 2d 20 73 |for a re|ason - s|
|00000470| 70 65 65 64 2c 20 6f 72 | 20 43 41 4c 4c 20 70 61 |peed, or| CALL pa|
|00000480| 72 61 6d 65 74 65 72 73 | 2e 0d 01 0e 4a f4 20 32 |rameters|....J. 2|
|00000490| 29 20 61 6c 6c 6f 63 61 | 74 65 20 75 6e 75 73 65 |) alloca|te unuse|
|000004a0| 64 20 73 69 6e 67 6c 65 | 20 6c 65 74 74 65 72 20 |d single| letter |
|000004b0| 76 61 72 69 61 62 6c 65 | 73 20 74 6f 20 74 68 65 |variable|s to the|
|000004c0| 20 6d 6f 73 74 20 63 6f | 6d 6d 6f 6e 6c 79 20 75 | most co|mmonly u|
|000004d0| 73 65 64 0d 01 18 10 f4 | 20 76 61 72 69 61 62 6c |sed.....| variabl|
|000004e0| 65 73 2e 0d 01 22 4e f4 | 20 33 29 20 61 6c 6c 6f |es..."N.| 3) allo|
|000004f0| 63 61 74 65 20 32 20 6c | 65 74 74 65 72 20 6e 61 |cate 2 l|etter na|
|00000500| 6d 65 73 20 74 6f 20 61 | 6e 79 20 72 65 6d 61 69 |mes to a|ny remai|
|00000510| 6e 69 6e 67 20 76 61 72 | 69 61 62 6c 65 73 2e 20 |ning var|iables. |
|00000520| 57 68 69 6c 73 74 20 67 | 65 6e 65 72 61 74 69 6e |Whilst g|eneratin|
|00000530| 67 0d 01 2c 4b f4 20 32 | 20 6c 65 74 74 65 72 20 |g..,K. 2| letter |
|00000540| 6e 61 6d 65 73 2c 20 74 | 68 65 20 66 69 72 73 74 |names, t|he first|
|00000550| 20 6c 65 74 74 65 72 20 | 63 68 61 6e 67 65 73 20 | letter |changes |
|00000560| 66 61 73 74 65 73 74 2c | 20 66 6f 72 20 6f 70 74 |fastest,| for opt|
|00000570| 69 6d 75 6d 20 72 75 6e | 74 69 6d 65 0d 01 36 2e |imum run|time..6.|
|00000580| f4 20 73 70 65 65 64 20 | 77 68 65 6e 20 42 41 53 |. speed |when BAS|
|00000590| 49 43 20 69 73 20 6c 6f | 6f 6b 69 6e 67 20 75 70 |IC is lo|oking up|
|000005a0| 20 74 68 65 20 6e 61 6d | 65 2e 0d 01 40 4d f4 20 | the nam|e...@M. |
|000005b0| 49 66 20 74 68 65 72 65 | 20 61 72 65 6e 27 74 20 |If there| aren't |
|000005c0| 65 6e 6f 75 67 68 20 32 | 20 6c 65 74 74 65 72 20 |enough 2| letter |
|000005d0| 70 61 69 72 73 2c 20 54 | 4f 55 47 48 21 20 28 54 |pairs, T|OUGH! (T|
|000005e0| 68 69 73 20 77 69 6c 6c | 20 6f 6e 6c 79 20 68 61 |his will| only ha|
|000005f0| 70 70 65 6e 20 69 66 0d | 01 4a 43 f4 20 74 68 65 |ppen if.|.JC. the|
|00000600| 20 70 72 6f 67 72 61 6d | 20 68 61 73 20 6d 6f 72 | program| has mor|
|00000610| 65 20 74 68 61 6e 20 61 | 62 6f 75 74 20 33 2c 35 |e than a|bout 3,5|
|00000620| 30 30 20 76 61 72 69 61 | 62 6c 65 73 20 6f 66 20 |00 varia|bles of |
|00000630| 6f 6e 65 20 74 79 70 65 | 21 29 0d 01 54 04 0d 01 |one type|!)..T...|
|00000640| 5e 4b f4 20 44 65 63 69 | 6d 61 6c 2c 48 65 78 20 |^K. Deci|mal,Hex |
|00000650| 61 6e 64 20 42 69 6e 61 | 72 79 20 63 6f 6e 73 74 |and Bina|ry const|
|00000660| 61 6e 74 73 20 61 72 65 | 20 63 6f 6e 76 65 72 74 |ants are| convert|
|00000670| 65 64 20 74 6f 20 64 65 | 63 69 6d 61 6c 2c 20 75 |ed to de|cimal, u|
|00000680| 6e 6c 65 73 73 20 68 65 | 78 0d 01 68 3c f4 20 77 |nless he|x..h<. w|
|00000690| 6f 75 6c 64 20 62 65 20 | 73 68 6f 72 74 65 72 20 |ould be |shorter |
|000006a0| 28 65 2e 67 2e 20 26 46 | 46 46 46 46 20 69 73 20 |(e.g. &F|FFFF is |
|000006b0| 73 68 6f 72 74 65 72 20 | 74 68 61 6e 20 31 30 34 |shorter |than 104|
|000006c0| 38 35 37 35 29 0d 01 72 | 4d f4 20 59 6f 75 20 6d |8575)..r|M. You m|
|000006d0| 61 79 20 6e 6f 74 69 63 | 65 20 74 68 61 74 20 74 |ay notic|e that t|
|000006e0| 68 65 20 70 72 6f 67 72 | 61 6d 20 63 61 6e 20 62 |he progr|am can b|
|000006f0| 75 69 6c 64 20 61 20 6c | 69 73 74 20 6f 66 20 61 |uild a l|ist of a|
|00000700| 6c 6c 20 6e 75 6d 65 72 | 69 63 73 20 75 73 65 64 |ll numer|ics used|
|00000710| 20 2d 0d 01 7c 49 f4 20 | 74 68 69 73 20 77 61 73 | -..|I. |this was|
|00000720| 20 69 6e 74 65 6e 64 65 | 64 20 74 6f 20 62 65 20 | intende|d to be |
|00000730| 75 73 65 64 20 74 6f 20 | 61 6c 6c 6f 63 61 74 65 |used to |allocate|
|00000740| 20 76 61 72 69 61 62 6c | 65 73 20 61 73 20 63 6f | variabl|es as co|
|00000750| 6e 73 74 61 6e 74 73 20 | 66 6f 72 0d 01 86 4e f4 |nstants |for...N.|
|00000760| 20 66 72 65 71 75 65 6e | 74 6c 79 20 75 73 65 64 | frequen|tly used|
|00000770| 20 6e 75 6d 62 65 72 73 | 2e 20 54 68 69 73 20 68 | numbers|. This h|
|00000780| 61 73 20 6e 6f 74 20 28 | 79 65 74 29 20 62 65 65 |as not (|yet) bee|
|00000790| 6e 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2c 20 61 |n implem|ented, a|
|000007a0| 73 20 73 61 76 69 6e 67 | 73 0d 01 90 15 f4 20 77 |s saving|s..... w|
|000007b0| 6f 75 6c 64 20 62 65 20 | 73 6d 61 6c 6c 2e 0d 01 |ould be |small...|
|000007c0| 9a 04 0d 01 a4 4b f4 20 | 6c 69 6e 65 20 63 6f 6e |.....K. |line con|
|000007d0| 63 61 74 65 6e 61 74 69 | 6f 6e 20 65 72 72 73 20 |catenati|on errs |
|000007e0| 6f 6e 20 74 68 65 20 73 | 69 64 65 20 6f 66 20 63 |on the s|ide of c|
|000007f0| 61 75 74 69 6f 6e 2c 20 | 61 6e 64 20 73 6f 6d 65 |aution, |and some|
|00000800| 74 69 6d 65 73 20 64 6f | 65 73 6e 27 74 0d 01 ae |times do|esn't...|
|00000810| 45 f4 20 6a 6f 69 6e 20 | 6a 6f 69 6e 61 62 6c 65 |E. join |joinable|
|00000820| 20 6c 69 6e 65 73 2e 20 | 54 68 69 73 20 68 61 73 | lines. |This has|
|00000830| 20 6c 69 74 74 6c 65 20 | 65 66 66 65 63 74 20 6f | little |effect o|
|00000840| 6e 20 74 68 65 20 63 75 | 6e 63 68 65 64 20 73 69 |n the cu|nched si|
|00000850| 7a 65 0d 01 b8 04 0d 01 | c2 13 f4 20 4c 49 4d 49 |ze......|... LIMI|
|00000860| 54 41 54 49 4f 4e 53 20 | 3a 0d 01 cc 4a f4 20 73 |TATIONS |:...J. s|
|00000870| 74 72 61 6e 67 65 20 76 | 61 72 69 61 74 69 6f 6e |trange v|ariation|
|00000880| 73 20 6f 6e 20 74 68 65 | 20 44 49 4d 20 61 64 64 |s on the| DIM add|
|00000890| 72 65 73 73 25 20 73 70 | 61 63 65 25 20 63 6f 6e |ress% sp|ace% con|
|000008a0| 73 74 72 75 63 74 20 6d | 61 79 20 6e 6f 74 20 77 |struct m|ay not w|
|000008b0| 6f 72 6b 0d 01 d6 17 f4 | 20 65 2e 67 2e 20 44 49 |ork.....| e.g. DI|
|000008c0| 4d 20 61 25 21 32 34 20 | 62 25 0d 01 e0 37 f4 20 |M a%!24 |b%...7. |
|000008d0| 77 69 6c 6c 20 67 65 74 | 20 74 68 65 20 70 6f 73 |will get| the pos|
|000008e0| 69 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 72 65 71 |ition of| the req|
|000008f0| 75 69 72 65 64 20 73 70 | 61 63 65 20 77 72 6f 6e |uired sp|ace wron|
|00000900| 67 0d 01 ea 04 0d 01 f4 | 44 f4 20 49 74 20 69 73 |g.......|D. It is|
|00000910| 20 70 6f 73 73 69 62 6c | 65 20 74 68 61 74 20 6d | possibl|e that m|
|00000920| 6e 65 6d 6f 6e 69 63 73 | 20 69 6e 20 6c 6f 77 65 |nemonics| in lowe|
|00000930| 72 20 6f 72 20 6d 69 78 | 65 64 20 63 61 73 65 20 |r or mix|ed case |
|00000940| 6d 61 79 20 63 61 75 73 | 65 0d 01 fe 3f f4 20 70 |may caus|e...?. p|
|00000950| 72 6f 62 6c 65 6d 73 20 | 69 6e 20 63 65 72 74 61 |roblems |in certa|
|00000960| 69 6e 20 63 69 72 63 75 | 6d 73 74 61 6e 63 65 73 |in circu|mstances|
|00000970| 2c 20 73 6f 20 73 74 69 | 63 6b 20 74 6f 20 75 70 |, so sti|ck to up|
|00000980| 70 65 72 20 63 61 73 65 | 0d 02 08 04 0d 02 12 28 |per case|.......(|
|00000990| f4 20 54 68 69 73 20 63 | 72 75 6e 63 68 65 72 20 |. This c|runcher |
|000009a0| 77 69 6c 6c 20 4e 4f 54 | 20 63 6f 70 65 20 77 69 |will NOT| cope wi|
|000009b0| 74 68 20 3a 0d 02 1c 04 | 0d 02 26 37 f4 20 6e 75 |th :....|..&7. nu|
|000009c0| 6d 65 72 69 63 20 63 6f | 6e 73 74 61 6e 74 73 20 |meric co|nstants |
|000009d0| 77 69 74 68 20 45 20 6e | 6f 74 61 74 69 6f 6e 20 |with E n|otation |
|000009e0| 28 31 45 33 2c 36 45 2d | 34 20 65 74 63 2e 29 0d |(1E3,6E-|4 etc.).|
|000009f0| 02 30 3d f4 20 2a 20 63 | 6f 6d 6d 61 6e 64 73 20 |.0=. * c|ommands |
|00000a00| 69 6d 6d 65 64 69 61 74 | 65 6c 79 20 61 66 74 65 |immediat|ely afte|
|00000a10| 72 20 54 48 45 4e 20 6f | 72 20 45 4c 53 45 20 2d |r THEN o|r ELSE -|
|00000a20| 20 75 73 65 20 61 20 63 | 6f 6c 6f 6e 0d 02 3a 20 | use a c|olon..: |
|00000a30| f4 20 65 2e 67 2e 20 49 | 46 20 66 72 65 64 20 45 |. e.g. I|F fred E|
|00000a40| 4c 53 45 20 3a 2a 74 68 | 69 6e 67 79 0d 02 44 04 |LSE :*th|ingy..D.|
|00000a50| 0d 02 4e 3a f4 20 52 65 | 66 65 72 65 6e 63 65 73 |..N:. Re|ferences|
|00000a60| 20 74 6f 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 73 | to line| numbers|
|00000a70| 20 28 47 4f 54 4f 2c 47 | 4f 53 55 42 2c 52 45 53 | (GOTO,G|OSUB,RES|
|00000a80| 54 4f 52 45 20 65 74 63 | 2e 29 0d 02 58 49 f4 20 |TORE etc|.)..XI. |
|00000a90| 54 68 65 73 65 20 63 61 | 6e 20 75 73 75 61 6c 6c |These ca|n usuall|
|00000aa0| 79 20 62 65 20 61 76 6f | 69 64 65 64 2c 20 61 73 |y be avo|ided, as|
|00000ab0| 20 20 4f 4e 20 45 52 52 | 4f 52 73 20 63 61 6e 20 |  ON ERR|ORs can |
|00000ac0| 62 65 20 64 6f 6e 65 20 | 61 73 20 66 6f 6c 6c 6f |be done |as follo|
|00000ad0| 77 73 3a 0d 02 62 04 0d | 02 6c 18 f4 20 20 20 50 |ws:..b..|.l..   P|
|00000ae0| 52 4f 43 69 6e 69 74 69 | 61 6c 73 74 75 66 66 0d |ROCiniti|alstuff.|
|00000af0| 02 76 3e f4 20 20 20 4f | 4e 20 45 52 52 4f 52 20 |.v>.   O|N ERROR |
|00000b00| 50 52 4f 43 6d 6f 61 6e | 20 20 3a 52 45 4d 20 77 |PROCmoan|  :REM w|
|00000b10| 69 6c 6c 20 64 72 6f 70 | 20 74 68 72 6f 75 67 68 |ill drop| through|
|00000b20| 20 74 6f 20 6d 61 69 6e | 20 6c 6f 6f 70 0d 02 80 | to main| loop...|
|00000b30| 0e f4 20 20 20 52 45 50 | 45 41 54 0d 02 8a 0e f4 |..   REP|EAT.....|
|00000b40| 20 20 20 3c 6d 61 69 6e | 3e 0d 02 94 14 f4 20 20 |   <main|>.....  |
|00000b50| 20 55 4e 54 49 4c 20 3c | 64 6f 6e 65 3e 0d 02 9e | UNTIL <|done>...|
|00000b60| 04 0d 02 a8 1e f4 20 52 | 45 53 54 4f 52 45 20 63 |...... R|ESTORE c|
|00000b70| 61 6e 20 62 65 20 64 6f | 6e 65 20 62 79 20 3a 0d |an be do|ne by :.|
|00000b80| 02 b2 4d f4 20 20 20 52 | 45 53 54 4f 52 45 20 2b |..M.   R|ESTORE +|
|00000b90| 30 20 20 20 3a 52 45 4d | 20 72 65 73 74 6f 72 65 |0   :REM| restore|
|00000ba0| 73 20 74 6f 20 64 61 74 | 61 20 6f 6e 20 6e 65 78 |s to dat|a on nex|
|00000bb0| 74 20 6c 69 6e 65 20 28 | 63 72 75 6e 63 68 65 72 |t line (|cruncher|
|00000bc0| 20 77 6f 6e 27 74 20 6a | 6f 69 6e 29 0d 02 bc 14 | won't j|oin)....|
|00000bd0| f4 20 20 20 44 41 54 41 | 20 31 2c 32 2c 33 2c 34 |.   DATA| 1,2,3,4|
|00000be0| 0d 02 c6 04 0d 02 d0 46 | f4 20 41 73 20 6d 6f 73 |.......F|. As mos|
|00000bf0| 74 20 6f 66 20 74 68 69 | 73 20 70 72 6f 67 72 61 |t of thi|s progra|
|00000c00| 6d 20 69 73 20 68 61 63 | 6b 65 64 20 75 70 20 69 |m is hac|ked up i|
|00000c10| 6e 20 42 41 53 49 43 2c | 20 69 74 20 69 73 20 53 |n BASIC,| it is S|
|00000c20| 4c 4f 57 2c 20 6f 66 74 | 65 6e 0d 02 da 49 f4 20 |LOW, oft|en...I. |
|00000c30| 74 61 6b 69 6e 67 20 61 | 20 66 65 77 20 6d 69 6e |taking a| few min|
|00000c40| 75 74 65 73 2e 20 54 68 | 69 73 20 73 68 6f 75 6c |utes. Th|is shoul|
|00000c50| 64 6e 27 74 20 62 65 20 | 61 20 70 72 6f 62 6c 65 |dn't be |a proble|
|00000c60| 6d 2c 20 61 73 20 70 72 | 6f 67 72 61 6d 73 20 6f |m, as pr|ograms o|
|00000c70| 6e 6c 79 0d 02 e4 32 f4 | 20 6e 65 65 64 20 74 6f |nly...2.| need to|
|00000c80| 20 62 65 20 63 72 75 6e | 63 68 65 64 20 77 68 65 | be crun|ched whe|
|00000c90| 6e 20 66 75 6c 6c 79 20 | 64 65 62 75 67 67 65 64 |n fully |debugged|
|00000ca0| 20 65 74 63 2e 0d 02 ee | 4b f4 20 53 6f 6d 65 20 | etc....|K. Some |
|00000cb0| 73 70 65 65 64 20 63 61 | 6e 20 62 65 20 67 61 69 |speed ca|n be gai|
|00000cc0| 6e 65 64 20 62 79 20 75 | 73 69 6e 67 20 61 20 63 |ned by u|sing a c|
|00000cd0| 72 75 6e 63 68 65 64 20 | 76 65 72 73 69 6f 6e 20 |runched |version |
|00000ce0| 6f 66 20 74 68 65 20 63 | 72 75 6e 63 68 65 72 2c |of the c|runcher,|
|00000cf0| 0d 02 f8 38 f4 20 61 6e | 64 20 75 73 69 6e 67 20 |...8. an|d using |
|00000d00| 52 41 4d 20 42 61 73 69 | 63 20 28 6f 72 20 2a 52 |RAM Basi|c (or *R|
|00000d10| 4d 46 61 73 74 65 72 20 | 42 61 73 69 63 20 69 6e |MFaster |Basic in|
|00000d20| 20 52 69 73 63 4f 73 29 | 0d 03 02 04 0d 03 0c 0d | RiscOs)|........|
|00000d30| f4 20 4e 6f 74 65 73 20 | 3a 0d 03 16 4d f4 20 63 |. Notes |:...M. c|
|00000d40| 72 75 6e 63 68 65 64 20 | 70 72 6f 67 72 61 6d 73 |runched |programs|
|00000d50| 20 6d 61 79 20 62 65 20 | 69 6d 70 6f 73 73 69 62 | may be |impossib|
|00000d60| 6c 65 20 74 6f 20 65 64 | 69 74 2c 20 61 73 20 6c |le to ed|it, as l|
|00000d70| 69 6e 65 73 20 6d 61 79 | 20 64 65 74 6f 6b 65 6e |ines may| detoken|
|00000d80| 69 73 65 20 74 6f 0d 03 | 20 4b f4 20 6c 6f 6e 67 |ise to..| K. long|
|00000d90| 65 72 20 74 68 61 6e 20 | 32 35 36 20 62 79 74 65 |er than |256 byte|
|00000da0| 73 2c 20 61 6e 64 20 6c | 61 63 6b 20 6f 66 20 73 |s, and l|ack of s|
|00000db0| 70 61 63 65 73 20 77 69 | 6c 6c 20 63 6f 6e 66 75 |paces wi|ll confu|
|00000dc0| 73 65 20 74 68 65 20 74 | 6f 6b 65 6e 69 73 65 72 |se the t|okeniser|
|00000dd0| 2e 0d 03 2a 04 0d 03 34 | 4a f4 20 49 66 20 61 20 |...*...4|J. If a |
|00000de0| 70 72 6f 67 72 61 6d 20 | 75 73 65 73 20 6c 69 62 |program |uses lib|
|00000df0| 72 61 72 69 65 73 2c 20 | 74 68 65 73 65 20 6d 75 |raries, |these mu|
|00000e00| 73 74 20 62 65 20 6d 65 | 72 67 65 64 20 77 69 74 |st be me|rged wit|
|00000e10| 68 20 74 68 65 20 6d 61 | 69 6e 20 63 6f 64 65 0d |h the ma|in code.|
|00000e20| 03 3e 49 f4 20 28 65 2e | 67 2e 20 75 73 69 6e 67 |.>I. (e.|g. using|
|00000e30| 20 41 50 50 45 4e 44 29 | 2c 20 63 72 75 6e 63 68 | APPEND)|, crunch|
|00000e40| 65 64 2c 20 61 6e 64 20 | 74 68 65 6e 20 73 70 6c |ed, and |then spl|
|00000e50| 69 74 20 62 61 63 6b 20 | 69 6e 74 6f 20 74 68 65 |it back |into the|
|00000e60| 20 6c 69 62 72 61 72 79 | 0d 03 48 41 f4 20 66 69 | library|..HA. fi|
|00000e70| 6c 65 73 2e 20 4f 74 68 | 65 72 77 69 73 65 2c 20 |les. Oth|erwise, |
|00000e80| 74 68 65 20 76 61 72 69 | 61 62 6c 65 2f 50 52 4f |the vari|able/PRO|
|00000e90| 43 20 6e 61 6d 65 73 20 | 77 6f 6e 27 74 20 63 6f |C names |won't co|
|00000ea0| 72 72 65 73 70 6f 6e 64 | 21 0d 03 52 04 0d 03 5c |rrespond|!..R...\|
|00000eb0| 47 f4 20 63 6c 65 76 65 | 72 20 74 72 69 63 6b 73 |G. cleve|r tricks|
|00000ec0| 20 75 73 69 6e 67 20 45 | 56 41 4c 20 6f 6e 20 76 | using E|VAL on v|
|00000ed0| 61 72 69 61 62 6c 65 20 | 6e 61 6d 65 73 20 61 6e |ariable |names an|
|00000ee0| 64 20 52 45 41 44 69 6e | 67 20 64 61 74 61 20 77 |d READin|g data w|
|00000ef0| 68 69 63 68 0d 03 66 33 | f4 20 63 6f 6e 74 61 69 |hich..f3|. contai|
|00000f00| 6e 73 20 76 61 72 69 61 | 62 6c 65 20 6e 61 6d 65 |ns varia|ble name|
|00000f10| 73 20 6f 62 76 69 6f 75 | 73 6c 79 20 77 6f 6e 27 |s obviou|sly won'|
|00000f20| 74 20 77 6f 72 6b 21 0d | 03 70 04 0d 03 7a 4c f4 |t work!.|.p...zL.|
|00000f30| 20 54 68 65 72 65 20 61 | 72 65 20 61 6c 6d 6f 73 | There a|re almos|
|00000f40| 74 20 63 65 72 74 61 69 | 6e 6c 79 20 73 6f 6d 65 |t certai|nly some|
|00000f50| 20 6f 62 73 63 75 72 65 | 20 74 68 69 6e 67 73 20 | obscure| things |
|00000f60| 74 68 61 74 20 49 20 64 | 69 64 6e 27 74 20 74 68 |that I d|idn't th|
|00000f70| 69 6e 6b 20 6f 66 2c 0d | 03 84 2a f4 20 77 68 69 |ink of,.|..*. whi|
|00000f80| 63 68 20 77 6f 6e 27 74 | 20 63 72 75 6e 63 68 20 |ch won't| crunch |
|00000f90| 70 72 6f 70 65 72 6c 79 | 20 2d 20 73 6f 72 72 79 |properly| - sorry|
|00000fa0| 21 0d 03 8e 04 0d 03 98 | 04 0d 03 a2 48 f4 20 54 |!.......|....H. T|
|00000fb0| 68 65 20 74 65 63 68 6e | 69 63 6f 6c 6f 75 72 20 |he techn|icolour |
|00000fc0| 6c 69 73 74 69 6e 67 20 | 6f 66 20 74 68 65 20 63 |listing |of the c|
|00000fd0| 72 75 6e 63 68 65 64 20 | 70 72 6f 67 72 61 6d 20 |runched |program |
|00000fe0| 69 73 20 66 6f 72 20 64 | 69 61 67 6e 6f 73 74 69 |is for d|iagnosti|
|00000ff0| 63 0d 03 ac 38 f4 20 70 | 75 72 70 6f 73 65 73 20 |c...8. p|urposes |
|00001000| 74 6f 20 69 64 65 6e 74 | 69 66 79 20 61 6e 79 20 |to ident|ify any |
|00001010| 70 72 6f 62 6c 65 6d 73 | 20 6f 66 20 6d 69 73 63 |problems| of misc|
|00001020| 72 75 6e 63 68 69 6e 67 | 2e 0d 03 b6 47 f4 20 54 |runching|....G. T|
|00001030| 6f 6b 65 6e 73 20 61 72 | 65 20 69 6e 20 72 65 64 |okens ar|e in red|
|00001040| 2c 20 72 65 70 6c 61 63 | 65 64 20 76 61 72 69 61 |, replac|ed varia|
|00001050| 62 6c 65 73 20 69 6e 20 | 79 65 6c 6c 6f 77 2c 20 |bles in |yellow, |
|00001060| 6e 75 6d 65 72 69 63 73 | 20 69 6e 20 62 6c 75 65 |numerics| in blue|
|00001070| 0d 03 c0 23 f4 20 61 6e | 64 20 65 76 65 72 79 74 |...#. an|d everyt|
|00001080| 68 69 6e 67 20 65 6c 73 | 65 20 69 6e 20 77 68 69 |hing els|e in whi|
|00001090| 74 65 2e 0d 03 ca 49 f4 | 20 4e 6f 74 65 20 74 68 |te....I.| Note th|
|000010a0| 65 74 20 79 6f 75 20 6d | 61 79 20 73 65 65 20 73 |et you m|ay see s|
|000010b0| 6f 6d 65 20 73 70 75 72 | 69 6f 75 73 20 74 72 61 |ome spur|ious tra|
|000010c0| 69 6c 69 6e 67 20 63 6f | 6c 6f 6e 73 2c 20 77 68 |iling co|lons, wh|
|000010d0| 69 63 68 20 77 6f 6e 27 | 74 20 62 65 0d 03 d4 4e |ich won'|t be...N|
|000010e0| f4 20 69 6e 20 74 68 65 | 20 63 72 75 6e 63 68 65 |. in the| crunche|
|000010f0| 64 20 70 72 6f 67 72 61 | 6d 20 69 6d 61 67 65 2c |d progra|m image,|
|00001100| 20 61 6e 64 20 61 73 73 | 65 6d 62 6c 65 72 20 6d | and ass|embler m|
|00001110| 6e 65 6d 6f 6e 69 63 73 | 20 63 6f 6e 74 61 69 6e |nemonics| contain|
|00001120| 69 6e 67 20 74 6f 6b 65 | 6e 73 0d 03 de 4e f4 20 |ing toke|ns...N. |
|00001130| 28 4d 4f 56 45 71 20 4f | 52 72 20 41 4e 44 20 45 |(MOVEq O|Rr AND E|
|00001140| 4f 52 29 20 77 6f 6e 27 | 74 20 62 65 20 64 69 73 |OR) won'|t be dis|
|00001150| 70 6c 61 79 65 64 20 63 | 6f 72 72 65 63 74 6c 79 |played c|orrectly|
|00001160| 20 6f 6e 73 63 72 65 65 | 6e 2c 20 62 75 74 20 74 | onscree|n, but t|
|00001170| 68 65 20 73 61 76 65 64 | 0d 03 e8 15 f4 20 63 6f |he saved|..... co|
|00001180| 64 65 20 77 69 6c 6c 20 | 62 65 20 4f 4b 0d 03 f2 |de will |be OK...|
|00001190| 04 0d 03 fc 04 0d 04 06 | 4a f4 20 49 6e 20 63 61 |........|J. In ca|
|000011a0| 73 65 20 6f 66 20 70 72 | 6f 62 6c 65 6d 73 2c 20 |se of pr|oblems, |
|000011b0| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 6e 61 6d 65 |the list| of name|
|000011c0| 20 74 72 61 6e 73 6c 61 | 74 69 6f 6e 73 20 66 6f | transla|tions fo|
|000011d0| 72 20 65 61 63 68 20 74 | 79 70 65 20 63 61 6e 0d |r each t|ype can.|
|000011e0| 04 10 4d f4 20 62 65 20 | 70 72 69 6e 74 65 64 20 |..M. be |printed |
|000011f0| 75 73 69 6e 67 20 50 52 | 4f 43 73 68 6f 77 6c 69 |using PR|OCshowli|
|00001200| 73 74 28 78 78 78 70 74 | 72 25 29 20 61 66 74 65 |st(xxxpt|r%) afte|
|00001210| 72 20 74 68 65 20 63 72 | 75 6e 63 68 65 72 20 68 |r the cr|uncher h|
|00001220| 61 73 20 66 69 6e 69 73 | 68 65 64 2c 0d 04 1a 46 |as finis|hed,...F|
|00001230| f4 20 77 68 65 72 65 20 | 78 78 78 20 69 73 20 6f |. where |xxx is o|
|00001240| 6e 65 20 6f 66 20 3a 20 | 72 65 61 6c 20 69 6e 74 |ne of : |real int|
|00001250| 20 73 74 72 69 6e 67 20 | 69 6e 74 61 20 72 65 61 | string |inta rea|
|00001260| 6c 61 20 73 74 72 69 6e | 67 61 20 70 72 6f 63 20 |la strin|ga proc |
|00001270| 66 6e 0d 04 24 04 0d 04 | 2e 48 f4 20 67 61 72 62 |fn..$...|.H. garb|
|00001280| 61 67 65 20 69 6e 20 70 | 72 6f 67 72 61 6d 20 63 |age in p|rogram c|
|00001290| 61 6e 20 63 61 75 73 65 | 20 70 72 6f 62 6c 65 6d |an cause| problem|
|000012a0| 73 20 2d 20 65 2e 67 2e | 20 63 6f 6d 6d 65 6e 74 |s - e.g.| comment|
|000012b0| 73 20 62 65 74 77 65 65 | 6e 20 70 72 6f 63 0d 04 |s betwee|n proc..|
|000012c0| 38 47 f4 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 2e |8G. defi|nitions.|
|000012d0| 20 45 6e 73 75 72 65 20 | 52 45 4d 73 20 61 72 65 | Ensure |REMs are|
|000012e0| 20 70 72 65 73 65 6e 74 | 2e 20 54 68 69 73 20 63 | present|. This c|
|000012f0| 61 6e 20 63 61 75 73 65 | 20 77 69 65 72 64 20 65 |an cause| wierd e|
|00001300| 72 72 6f 72 73 0d 04 42 | 3d f4 20 6c 69 6b 65 20 |rrors..B|=. like |
|00001310| 42 61 64 20 48 65 78 2c | 20 42 61 64 20 62 69 6e |Bad Hex,| Bad bin|
|00001320| 61 72 79 20 69 66 20 74 | 68 65 72 65 20 61 72 65 |ary if t|here are|
|00001330| 20 26 20 6f 72 20 25 20 | 69 6e 20 67 61 72 62 61 | & or % |in garba|
|00001340| 67 65 0d 04 4c 04 0d 04 | 56 13 f4 20 43 68 61 6e |ge..L...|V.. Chan|
|00001350| 67 65 20 6c 69 73 74 20 | 3a 0d 04 60 04 0d 04 6a |ge list |:..`...j|
|00001360| 18 76 65 72 24 3d 22 76 | 31 2e 33 30 20 31 36 2f |.ver$="v|1.30 16/|
|00001370| 39 2f 38 39 22 0d 04 74 | 04 0d 04 7e 4b f4 20 56 |9/89"..t|...~K. V|
|00001380| 2e 31 2e 31 30 20 2d 20 | 6e 6f 77 20 64 69 73 70 |.1.10 - |now disp|
|00001390| 6c 61 79 73 20 76 61 72 | 20 26 20 70 72 6f 63 20 |lays var| & proc |
|000013a0| 6e 61 6d 65 73 20 74 68 | 61 74 20 6f 6e 6c 79 20 |names th|at only |
|000013b0| 61 70 70 65 61 72 20 6f | 6e 63 65 2c 20 61 6e 64 |appear o|nce, and|
|000013c0| 20 6d 61 79 0d 04 88 30 | f4 20 74 68 65 72 65 66 | may...0|. theref|
|000013d0| 6f 72 65 20 62 65 20 6c | 65 66 74 6f 76 65 72 73 |ore be l|eftovers|
|000013e0| 20 66 72 6f 6d 20 64 65 | 62 75 67 67 69 6e 67 20 | from de|bugging |
|000013f0| 65 74 63 2e 0d 04 92 28 | f4 20 28 65 2e 67 2e 20 |etc....(|. (e.g. |
|00001400| 55 6e 75 73 65 64 20 50 | 52 4f 43 73 20 66 72 6f |Unused P|ROCs fro|
|00001410| 6d 20 61 20 6c 69 62 72 | 61 72 79 29 0d 04 9c 04 |m a libr|ary)....|
|00001420| 0d 04 a6 0c f4 20 56 2e | 31 2e 32 30 0d 04 b0 51 |..... V.|1.20...Q|
|00001430| f4 20 6c 69 6e 65 20 6e | 75 6d 62 65 72 73 20 69 |. line n|umbers i|
|00001440| 6e 20 63 72 75 6e 63 68 | 65 64 20 70 72 6f 67 20 |n crunch|ed prog |
|00001450| 6e 6f 77 20 62 65 61 72 | 20 73 6f 6d 65 20 72 65 |now bear| some re|
|00001460| 73 65 6d 62 6c 65 6e 63 | 65 20 74 6f 20 74 68 6f |semblenc|e to tho|
|00001470| 73 65 20 69 6e 20 73 6f | 75 72 63 65 3a 0d 04 ba |se in so|urce:...|
|00001480| 4e f4 20 49 66 20 41 20 | 63 72 75 6e 63 68 65 64 |N. If A |crunched|
|00001490| 20 70 72 6f 67 72 61 6d | 20 62 6f 6d 62 73 20 61 | program| bombs a|
|000014a0| 74 20 6c 69 6e 65 20 78 | 2c 20 61 6e 64 20 74 68 |t line x|, and th|
|000014b0| 65 20 6e 65 78 74 20 6c | 69 6e 65 20 69 6e 20 74 |e next l|ine in t|
|000014c0| 68 65 20 63 72 75 6e 63 | 68 65 64 0d 04 c4 4e f4 |he crunc|hed...N.|
|000014d0| 20 70 72 6f 67 72 61 6d | 20 69 73 20 79 2c 20 74 | program| is y, t|
|000014e0| 68 65 6e 20 74 68 65 20 | 63 6f 72 72 65 73 70 6f |hen the |correspo|
|000014f0| 6e 64 69 6e 67 20 6c 69 | 6e 65 20 69 6e 20 74 68 |nding li|ne in th|
|00001500| 65 20 73 6f 75 72 63 65 | 20 77 69 6c 6c 20 6c 69 |e source| will li|
|00001510| 65 20 62 65 74 77 65 65 | 6e 0d 04 ce 41 f4 20 74 |e betwee|n...A. t|
|00001520| 68 65 20 6c 69 6e 65 20 | 61 62 6f 76 65 20 6c 69 |he line |above li|
|00001530| 6e 65 20 78 20 69 6e 20 | 74 68 65 20 73 6f 75 72 |ne x in |the sour|
|00001540| 63 65 2c 20 61 6e 64 20 | 6c 69 6e 65 20 79 20 28 |ce, and |line y (|
|00001550| 69 6e 63 6c 75 73 69 76 | 65 29 0d 04 d8 04 0d 04 |inclusiv|e)......|
|00001560| e2 0c f4 20 56 2e 31 2e | 33 30 0d 04 ec 51 f4 20 |... V.1.|30...Q. |
|00001570| 43 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 20 64 65 63 |Command |line dec|
|00001580| 6f 64 69 6e 67 20 61 64 | 64 65 64 20 74 6f 20 61 |oding ad|ded to a|
|00001590| 6c 6c 6f 77 20 66 6f 72 | 20 63 72 75 6e 63 68 69 |llow for| crunchi|
|000015a0| 6e 67 20 66 72 6f 6d 20 | 61 20 64 65 73 6b 74 6f |ng from |a deskto|
|000015b0| 70 20 66 72 6f 6e 74 20 | 65 6e 64 0d 04 f6 31 f4 |p front |end...1.|
|000015c0| 20 77 68 69 63 68 20 70 | 61 73 73 65 73 20 66 69 | which p|asses fi|
|000015d0| 6c 65 6e 61 6d 65 73 20 | 69 6e 20 74 68 65 20 2a |lenames |in the *|
|000015e0| 52 75 6e 20 63 6f 6d 6d | 61 6e 64 2e 0d 05 00 1e |Run comm|and.....|
|000015f0| f4 20 53 74 75 61 72 74 | 20 48 69 63 6b 69 6e 62 |. Stuart| Hickinb|
|00001600| 6f 74 74 6f 6d 20 31 39 | 38 39 0d 05 0a 04 0d 05 |ottom 19|89......|
|00001610| 14 10 de 20 43 4f 44 45 | 25 20 31 30 30 30 0d 05 |... CODE|% 1000..|
|00001620| 1e 16 62 75 66 73 69 7a | 65 25 3d 93 2d e0 2d 26 |..bufsiz|e%=.-.-&|
|00001630| 38 30 30 30 0d 05 28 13 | de 20 62 75 66 25 20 62 |8000..(.|. buf% b|
|00001640| 75 66 73 69 7a 65 25 0d | 05 32 47 64 65 66 61 75 |ufsize%.|.2Gdefau|
|00001650| 6c 74 61 6c 6c 6f 63 25 | 3d 33 20 3a f4 20 62 79 |ltalloc%|=3 :. by|
|00001660| 74 65 73 20 74 6f 20 72 | 65 73 65 72 76 65 20 66 |tes to r|eserve f|
|00001670| 6f 72 20 6e 65 77 20 6e | 61 6d 65 20 77 68 65 6e |or new n|ame when|
|00001680| 20 62 75 69 6c 64 69 6e | 67 20 6c 69 73 74 0d 05 | buildin|g list..|
|00001690| 3c 04 0d 05 46 1e e3 41 | 3d 30 20 b8 20 32 20 88 |<...F..A|=0 . 2 .|
|000016a0| 32 3a 50 25 3d 43 4f 44 | 45 25 3a 5b 4f 50 54 41 |2:P%=COD|E%:[OPTA|
|000016b0| 0d 05 50 07 2e 67 74 0d | 05 5a 1c 5c 52 30 3d 74 |..P..gt.|.Z.\R0=t|
|000016c0| 6f 6b 65 6e 2c 20 5b 6e | 74 5d 20 6e 65 78 74 62 |oken, [n|t] nextb|
|000016d0| 79 74 65 0d 05 64 09 5c | 31 39 2a 34 0d 05 6e 14 |yte..d.\|19*4..n.|
|000016e0| 53 54 4d 46 44 20 52 31 | 33 21 2c 7b 52 31 34 7d |STMFD R1|3!,{R14}|
|000016f0| 0d 05 78 14 41 44 44 20 | 52 32 2c 52 31 34 2c 23 |..x.ADD |R2,R14,#|
|00001700| 31 39 2a 34 0d 05 82 10 | 41 44 52 20 52 31 34 2c |19*4....|ADR R14,|
|00001710| 62 61 63 6b 0d 05 8c 0e | 41 44 52 20 52 31 32 2c |back....|ADR R12,|
|00001720| 6e 74 0d 05 96 0d 4d 4f | 56 20 50 43 2c 52 32 0d |nt....MO|V PC,R2.|
|00001730| 05 a0 09 2e 62 61 63 6b | 0d 05 aa 0e 53 54 52 20 |....back|....STR |
|00001740| 52 31 2c 74 73 74 0d 05 | b4 13 4c 44 4d 46 44 20 |R1,tst..|..LDMFD |
|00001750| 52 31 33 21 2c 7b 50 43 | 7d 0d 05 be 04 0d 05 c8 |R13!,{PC|}.......|
|00001760| 0f 2e 74 73 74 20 45 51 | 55 44 20 30 0d 05 d2 0e |..tst EQ|UD 0....|
|00001770| 2e 6e 74 20 45 51 55 44 | 20 30 0d 05 dc 04 0d 05 |.nt EQUD| 0......|
|00001780| e6 0b 2e 73 65 61 72 63 | 68 0d 05 f0 04 0d 05 fa |...searc|h.......|
|00001790| 0f 2e 72 65 63 6f 72 64 | 6c 6f 6f 70 0d 06 04 0e |..record|loop....|
|000017a0| 53 54 52 20 52 30 2c 61 | 64 72 0d 06 0e 14 41 44 |STR R0,a|dr....AD|
|000017b0| 52 20 52 32 2c 73 65 61 | 72 63 68 62 75 66 0d 06 |R R2,sea|rchbuf..|
|000017c0| 18 1d 41 44 44 20 52 31 | 2c 52 30 2c 23 35 20 5c |..ADD R1|,R0,#5 \|
|000017d0| 2d 3e 66 69 72 73 74 63 | 68 61 72 0d 06 22 0f 2e |->firstc|har.."..|
|000017e0| 73 65 61 72 63 68 6c 6f | 6f 70 0d 06 2c 13 4c 44 |searchlo|op..,.LD|
|000017f0| 52 42 20 52 33 2c 5b 52 | 32 5d 2c 23 31 0d 06 36 |RB R3,[R|2],#1..6|
|00001800| 13 4c 44 52 42 20 52 34 | 2c 5b 52 31 5d 2c 23 31 |.LDRB R4|,[R1],#1|
|00001810| 0d 06 40 1c 54 45 51 20 | 52 33 2c 52 34 20 3a 20 |..@.TEQ |R3,R4 : |
|00001820| 42 4e 45 20 6e 6f 74 66 | 6f 75 6e 64 0d 06 4a 1f |BNE notf|ound..J.|
|00001830| 54 45 51 20 52 33 2c 23 | 31 33 20 3a 20 42 4e 45 |TEQ R3,#|13 : BNE|
|00001840| 20 73 65 61 72 63 68 6c | 6f 6f 70 0d 06 54 0a 5c | searchl|oop..T.\|
|00001850| 66 6f 75 6e 64 0d 06 5e | 4b 4c 44 52 42 20 52 33 |found..^|KLDRB R3|
|00001860| 2c 5b 52 30 2c 23 34 5d | 20 3a 20 41 44 44 20 52 |,[R0,#4]| : ADD R|
|00001870| 33 2c 52 33 2c 23 31 3a | 54 45 51 20 52 33 2c 23 |3,R3,#1:|TEQ R3,#|
|00001880| 32 35 36 3a 53 54 52 4e | 45 42 20 52 33 2c 5b 52 |256:STRN|EB R3,[R|
|00001890| 30 2c 23 34 5d 20 5c 69 | 6e 63 20 63 79 63 6c 65 |0,#4] \i|nc cycle|
|000018a0| 0d 06 68 0f 53 54 52 20 | 52 30 2c 66 61 64 72 0d |..h.STR |R0,fadr.|
|000018b0| 06 72 18 4d 4f 56 20 52 | 33 2c 23 31 3a 53 54 52 |.r.MOV R|3,#1:STR|
|000018c0| 20 52 33 2c 61 64 72 0d | 06 7c 0e 4d 4f 56 20 50 | R3,adr.|.|.MOV P|
|000018d0| 43 2c 52 31 34 0d 06 86 | 0d 2e 6e 6f 74 66 6f 75 |C,R14...|..notfou|
|000018e0| 6e 64 0d 06 90 0f 4c 44 | 52 20 52 30 2c 5b 52 30 |nd....LD|R R0,[R0|
|000018f0| 5d 0d 06 9a 1e 54 45 51 | 20 52 30 2c 23 30 20 3a |]....TEQ| R0,#0 :|
|00001900| 20 42 4e 45 20 72 65 63 | 6f 72 64 6c 6f 6f 70 0d | BNE rec|ordloop.|
|00001910| 06 a4 0e 4d 4f 56 20 50 | 43 2c 52 31 34 0d 06 ae |...MOV P|C,R14...|
|00001920| 04 0d 06 b8 04 0d 06 c2 | 04 0d 06 cc e3 2e 73 65 |........|......se|
|00001930| 61 72 63 68 62 75 66 20 | 45 51 55 53 22 2a 2a 2a |archbuf |EQUS"***|
|00001940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 22 0d 06 d6 09 |********|***"....|
|00001a10| 41 4c 49 47 4e 0d 06 e0 | 0a 45 51 55 44 20 30 0d |ALIGN...|.EQUD 0.|
|00001a20| 06 ea 0f 2e 61 64 72 20 | 45 51 55 44 20 30 0d 06 |....adr |EQUD 0..|
|00001a30| f4 11 2e 66 61 64 72 20 | 45 51 55 44 20 2d 31 0d |...fadr |EQUD -1.|
|00001a40| 06 fe 07 5d 3a ed 0d 07 | 08 04 0d 07 12 04 0d 07 |...]:...|........|
|00001a50| 1c 19 c8 99 20 22 4f 53 | 5f 47 65 74 45 6e 76 22 |.... "OS|_GetEnv"|
|00001a60| 20 b8 20 45 6e 76 24 0d | 07 26 0d 46 24 3d 22 46 | . Env$.|.&.F$="F|
|00001a70| 72 6f 6d 22 0d 07 30 0d | 6f 75 74 24 3d 22 54 6f |rom"..0.|out$="To|
|00001a80| 22 0d 07 3a 25 f2 5f 44 | 65 63 6f 64 65 45 6e 76 |"..:%._D|ecodeEnv|
|00001a90| 69 72 6f 6e 6d 65 6e 74 | 28 45 6e 76 24 2c 46 24 |ironment|(Env$,F$|
|00001aa0| 2c 6f 75 74 24 29 0d 07 | 44 07 eb 31 32 0d 07 4e |,out$)..|D..12..N|
|00001ab0| 26 c8 99 22 4f 53 5f 46 | 69 6c 65 22 2c 26 46 46 |&.."OS_F|ile",&FF|
|00001ac0| 2c 46 24 2c 62 75 66 25 | 20 b8 20 2c 2c 2c 2c 6c |,F$,buf%| . ,,,,l|
|00001ad0| 65 6e 25 0d 07 58 3d 6c | 69 73 74 25 3d 28 62 75 |en%..X=l|ist%=(bu|
|00001ae0| 66 25 2b 6c 65 6e 25 2b | 26 31 30 30 29 20 80 ac |f%+len%+|&100) ..|
|00001af0| 33 20 3a 20 f4 20 6c 69 | 6e 6b 65 64 20 6c 69 73 |3 : . li|nked lis|
|00001b00| 74 20 66 6f 72 20 76 61 | 72 20 74 61 62 6c 65 73 |t for va|r tables|
|00001b10| 0d 07 62 29 68 65 61 70 | 70 74 72 25 3d 6c 69 73 |..b)heap|ptr%=lis|
|00001b20| 74 25 3a 68 65 61 70 65 | 6e 64 25 3d 62 75 66 25 |t%:heape|nd%=buf%|
|00001b30| 2b 62 75 66 73 69 7a 65 | 25 0d 07 6c 07 d1 3d 30 |+bufsize|%..l..=0|
|00001b40| 0d 07 76 2c fb 33 3a f1 | 27 22 53 63 61 6e 6e 69 |..v,.3:.|'"Scanni|
|00001b50| 6e 67 20 66 6f 72 20 76 | 61 72 69 61 62 6c 65 20 |ng for v|ariable |
|00001b60| 6e 61 6d 65 73 2e 2e 2e | 22 3a fb 37 0d 07 80 4e |names...|":.7...N|
|00001b70| f4 20 28 70 74 72 25 29 | 2b 38 3d 73 69 6e 67 6c |. (ptr%)|+8=singl|
|00001b80| 65 20 76 61 72 20 61 6c | 6c 6f 63 61 74 69 6f 6e |e var al|location|
|00001b90| 20 6d 61 70 20 2d 20 30 | 3d 61 76 61 69 6c 61 62 | map - 0|=availab|
|00001ba0| 6c 65 2c 20 6f 72 64 65 | 72 20 61 73 20 49 4e 53 |le, orde|r as INS|
|00001bb0| 54 52 28 76 61 72 24 2c | 78 29 0d 07 8a 13 f4 20 |TR(var$,|x)..... |
|00001bc0| 6c 69 73 74 20 66 6f 72 | 6d 61 74 20 3a 0d 07 94 |list for|mat :...|
|00001bd0| 6d f4 20 30 2e 2e 33 20 | 3a 20 70 6f 69 6e 74 65 |m. 0..3 |: pointe|
|00001be0| 72 20 74 6f 20 6e 65 78 | 74 20 72 65 63 6f 72 64 |r to nex|t record|
|00001bf0| 20 69 6e 20 6c 69 73 74 | 20 3a 20 30 20 49 46 20 | in list| : 0 IF |
|00001c00| 6c 61 73 74 20 69 6e 20 | 6c 69 73 74 2c 20 61 6c |last in |list, al|
|00001c10| 69 67 6e 65 64 20 61 62 | 73 6f 6c 75 74 65 20 61 |igned ab|solute a|
|00001c20| 64 64 72 65 73 73 20 6f | 66 20 6e 65 78 74 20 69 |ddress o|f next i|
|00001c30| 74 65 6d 20 69 66 20 6e | 6f 74 0d 07 9e 50 f4 20 |tem if n|ot...P. |
|00001c40| 34 20 3a 20 63 6f 75 6e | 74 65 72 20 62 79 74 65 |4 : coun|ter byte|
|00001c50| 2c 20 68 6f 6c 64 73 20 | 6e 75 6d 62 65 72 20 6f |, holds |number o|
|00001c60| 66 20 6f 63 63 75 72 72 | 65 6e 63 65 73 20 6f 66 |f occurr|ences of|
|00001c70| 20 76 61 72 69 61 62 6c | 65 20 6e 61 6d 65 2e 32 | variabl|e name.2|
|00001c80| 35 35 20 69 66 3e 3d 32 | 35 35 0d 07 a8 21 f4 20 |55 if>=2|55...!. |
|00001c90| 35 2e 2e 20 6f 6c 64 20 | 76 61 72 20 6e 61 6d 65 |5.. old |var name|
|00001ca0| 20 3c 63 74 72 6c 63 6f | 64 65 3e 0d 07 b2 21 f4 | <ctrlco|de>...!.|
|00001cb0| 20 20 20 20 20 6e 65 77 | 20 76 61 72 20 6e 61 6d |     new| var nam|
|00001cc0| 65 20 3c 63 74 72 6c 63 | 6f 64 65 3e 0d 07 bc 0b |e <ctrlc|ode>....|
|00001cd0| f4 20 41 4c 49 47 4e 0d | 07 c6 04 0d 07 d0 31 72 |. ALIGN.|......1r|
|00001ce0| 65 61 6c 70 74 72 25 3d | a4 64 75 6d 6d 79 20 20 |ealptr%=|.dummy  |
|00001cf0| 20 3a f4 20 69 6e 69 74 | 69 61 6c 69 73 65 20 62 | :. init|ialise b|
|00001d00| 61 73 65 20 70 6f 69 6e | 74 65 72 73 0d 07 da 12 |ase poin|ters....|
|00001d10| 69 6e 74 70 74 72 25 3d | a4 64 75 6d 6d 79 0d 07 |intptr%=|.dummy..|
|00001d20| e4 15 73 74 72 69 6e 67 | 70 74 72 25 3d a4 64 75 |..string|ptr%=.du|
|00001d30| 6d 6d 79 0d 07 ee 14 72 | 65 61 6c 61 70 74 72 25 |mmy....r|ealaptr%|
|00001d40| 3d a4 64 75 6d 6d 79 0d | 07 f8 13 69 6e 74 61 70 |=.dummy.|...intap|
|00001d50| 74 72 25 3d a4 64 75 6d | 6d 79 0d 08 02 16 73 74 |tr%=.dum|my....st|
|00001d60| 72 69 6e 67 61 70 74 72 | 25 3d a4 64 75 6d 6d 79 |ringaptr|%=.dummy|
|00001d70| 0d 08 0c 11 66 6e 70 74 | 72 25 3d a4 64 75 6d 6d |....fnpt|r%=.dumm|
|00001d80| 79 0d 08 16 13 70 72 6f | 63 70 74 72 25 3d a4 64 |y....pro|cptr%=.d|
|00001d90| 75 6d 6d 79 0d 08 20 12 | 6e 75 6d 70 74 72 25 3d |ummy.. .|numptr%=|
|00001da0| a4 64 75 6d 6d 79 0d 08 | 2a 15 6c 69 6e 65 6c 25 |.dummy..|*.linel%|
|00001db0| 3d 30 3a 6c 69 6e 65 68 | 25 3d 30 0d 08 34 04 0d |=0:lineh|%=0..4..|
|00001dc0| 08 3e 0c 70 74 25 3d 62 | 75 66 25 0d 08 48 4c 76 |.>.pt%=b|uf%..HLv|
|00001dd0| 61 72 24 3d 22 40 61 62 | 63 64 65 66 67 68 69 6a |ar$="@ab|cdefghij|
|00001de0| 6b 6c 6d 6e 6f 70 71 72 | 73 74 75 76 77 78 79 7a |klmnopqr|stuvwxyz|
|00001df0| 41 42 43 44 45 46 47 48 | 49 4a 4b 4c 4d 4e 4f 50 |ABCDEFGH|IJKLMNOP|
|00001e00| 51 52 53 54 55 56 57 58 | 59 5a 5f 60 30 31 32 33 |QRSTUVWX|YZ_`0123|
|00001e10| 34 35 36 37 38 39 22 0d | 08 52 04 0d 08 5c 04 0d |456789".|.R...\..|
|00001e20| 08 66 6c 61 73 6d 24 3d | 22 41 42 43 44 45 46 47 |.flasm$=|"ABCDEFG|
|00001e30| 48 49 4a 4b 4c 4d 4e 4f | 50 51 52 53 54 55 56 57 |HIJKLMNO|PQRSTUVW|
|00001e40| 58 59 5a 61 62 63 64 65 | 66 67 68 69 6a 6b 6c 6d |XYZabcde|fghijklm|
|00001e50| 6e 6f 70 71 72 73 74 75 | 76 77 78 79 7a 22 2b bd |nopqrstu|vwxyz"+.|
|00001e60| 26 38 30 2b bd 26 38 32 | 2b bd 26 38 34 2b bd 26 |&80+.&82|+.&84+.&|
|00001e70| 45 43 20 3a 20 f4 20 76 | 61 6c 69 64 20 6d 6e 65 |EC : . v|alid mne|
|00001e80| 6d 6f 6e 69 63 20 63 68 | 61 72 73 0d 08 70 48 ee |monic ch|ars..pH.|
|00001e90| 20 85 20 f6 3a f1 22 20 | 61 74 20 6c 69 6e 65 20 | . .:." |at line |
|00001ea0| 22 9e 3a f1 22 4c 69 6e | 65 20 6e 75 6d 62 65 72 |".:."Lin|e number|
|00001eb0| 20 69 6e 20 6f 72 69 67 | 69 6e 61 6c 20 3d 20 22 | in orig|inal = "|
|00001ec0| 6c 69 6e 65 6c 25 2b 32 | 35 36 2a 6c 69 6e 65 68 |linel%+2|56*lineh|
|00001ed0| 25 3a e0 0d 08 7a 09 f2 | 73 63 61 6e 0d 08 84 09 |%:...z..|scan....|
|00001ee0| ee 20 85 20 87 0d 08 8e | 37 fb 33 3a f1 27 27 22 |. . ....|7.3:.''"|
|00001ef0| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6e 61 |The foll|owing na|
|00001f00| 6d 65 73 20 61 72 65 20 | 6f 6e 6c 79 20 75 73 65 |mes are |only use|
|00001f10| 64 20 6f 6e 63 65 2e 2e | 22 3a fb 37 0d 08 98 04 |d once..|":.7....|
|00001f20| 0d 08 a2 1f f2 77 61 72 | 6e 73 69 6e 67 6c 65 28 |.....war|nsingle(|
|00001f30| 72 65 61 6c 70 74 72 25 | 2c 22 22 2c 22 22 29 0d |realptr%|,"","").|
|00001f40| 08 ac 1f f2 77 61 72 6e | 73 69 6e 67 6c 65 28 69 |....warn|single(i|
|00001f50| 6e 74 70 74 72 25 2c 22 | 22 2c 22 25 22 29 0d 08 |ntptr%,"|","%")..|
|00001f60| b6 22 f2 77 61 72 6e 73 | 69 6e 67 6c 65 28 73 74 |.".warns|ingle(st|
|00001f70| 72 69 6e 67 70 74 72 25 | 2c 22 22 2c 22 24 22 29 |ringptr%|,"","$")|
|00001f80| 0d 08 c0 21 f2 77 61 72 | 6e 73 69 6e 67 6c 65 28 |...!.war|nsingle(|
|00001f90| 72 65 61 6c 61 70 74 72 | 25 2c 22 22 2c 22 28 22 |realaptr|%,"","("|
|00001fa0| 29 0d 08 ca 21 f2 77 61 | 72 6e 73 69 6e 67 6c 65 |)...!.wa|rnsingle|
|00001fb0| 28 69 6e 74 61 70 74 72 | 25 2c 22 22 2c 22 25 28 |(intaptr|%,"","%(|
|00001fc0| 22 29 0d 08 d4 24 f2 77 | 61 72 6e 73 69 6e 67 6c |")...$.w|arnsingl|
|00001fd0| 65 28 73 74 72 69 6e 67 | 61 70 74 72 25 2c 22 22 |e(string|aptr%,""|
|00001fe0| 2c 22 24 28 22 29 0d 08 | de 1f f2 77 61 72 6e 73 |,"$(")..|...warns|
|00001ff0| 69 6e 67 6c 65 28 66 6e | 70 74 72 25 2c 22 46 4e |ingle(fn|ptr%,"FN|
|00002000| 22 2c 22 22 29 0d 08 e8 | 23 f2 77 61 72 6e 73 69 |","")...|#.warnsi|
|00002010| 6e 67 6c 65 28 70 72 6f | 63 70 74 72 25 2c 22 50 |ngle(pro|cptr%,"P|
|00002020| 52 4f 43 22 2c 22 22 29 | 0d 08 f2 04 0d 08 fc 2e |ROC","")|........|
|00002030| fb 33 3a f1 27 27 22 41 | 6c 6c 6f 63 61 74 69 6e |.3:.''"A|llocatin|
|00002040| 67 20 73 69 6e 67 6c 65 | 20 6c 65 74 74 65 72 20 |g single| letter |
|00002050| 76 61 72 73 2e 2e 22 3a | fb 37 0d 09 06 19 f2 61 |vars..":|.7.....a|
|00002060| 6c 6f 63 73 69 6e 67 6c | 65 28 72 65 61 6c 70 74 |locsingl|e(realpt|
|00002070| 72 25 29 0d 09 10 18 f2 | 61 6c 6f 63 73 69 6e 67 |r%).....|alocsing|
|00002080| 6c 65 28 69 6e 74 70 74 | 72 25 29 0d 09 1a 1b f2 |le(intpt|r%).....|
|00002090| 61 6c 6f 63 73 69 6e 67 | 6c 65 28 73 74 72 69 6e |alocsing|le(strin|
|000020a0| 67 70 74 72 25 29 0d 09 | 24 1a f2 61 6c 6f 63 73 |gptr%)..|$..alocs|
|000020b0| 69 6e 67 6c 65 28 72 65 | 61 6c 61 70 74 72 25 29 |ingle(re|alaptr%)|
|000020c0| 0d 09 2e 19 f2 61 6c 6f | 63 73 69 6e 67 6c 65 28 |.....alo|csingle(|
|000020d0| 69 6e 74 61 70 74 72 25 | 29 0d 09 38 1c f2 61 6c |intaptr%|)..8..al|
|000020e0| 6f 63 73 69 6e 67 6c 65 | 28 73 74 72 69 6e 67 61 |ocsingle|(stringa|
|000020f0| 70 74 72 25 29 0d 09 42 | 17 f2 61 6c 6f 63 73 69 |ptr%)..B|..alocsi|
|00002100| 6e 67 6c 65 28 66 6e 70 | 74 72 25 29 0d 09 4c 19 |ngle(fnp|tr%)..L.|
|00002110| f2 61 6c 6f 63 73 69 6e | 67 6c 65 28 70 72 6f 63 |.alocsin|gle(proc|
|00002120| 70 74 72 25 29 0d 09 56 | 2d fb 33 3a f1 27 22 41 |ptr%)..V|-.3:.'"A|
|00002130| 6c 6c 6f 63 61 74 69 6e | 67 20 64 6f 75 62 6c 65 |llocatin|g double|
|00002140| 20 6c 65 74 74 65 72 20 | 76 61 72 73 2e 2e 22 3a | letter |vars..":|
|00002150| fb 37 0d 09 60 19 f2 61 | 6c 6f 63 64 6f 75 62 6c |.7..`..a|locdoubl|
|00002160| 65 28 72 65 61 6c 70 74 | 72 25 29 0d 09 6a 18 f2 |e(realpt|r%)..j..|
|00002170| 61 6c 6f 63 64 6f 75 62 | 6c 65 28 69 6e 74 70 74 |alocdoub|le(intpt|
|00002180| 72 25 29 0d 09 74 1b f2 | 61 6c 6f 63 64 6f 75 62 |r%)..t..|alocdoub|
|00002190| 6c 65 28 73 74 72 69 6e | 67 70 74 72 25 29 0d 09 |le(strin|gptr%)..|
|000021a0| 7e 1a f2 61 6c 6f 63 64 | 6f 75 62 6c 65 28 72 65 |~..alocd|ouble(re|
|000021b0| 61 6c 61 70 74 72 25 29 | 0d 09 88 19 f2 61 6c 6f |alaptr%)|.....alo|
|000021c0| 63 64 6f 75 62 6c 65 28 | 69 6e 74 61 70 74 72 25 |cdouble(|intaptr%|
|000021d0| 29 0d 09 92 1c f2 61 6c | 6f 63 64 6f 75 62 6c 65 |).....al|ocdouble|
|000021e0| 28 73 74 72 69 6e 67 61 | 70 74 72 25 29 0d 09 9c |(stringa|ptr%)...|
|000021f0| 17 f2 61 6c 6f 63 64 6f | 75 62 6c 65 28 66 6e 70 |..alocdo|uble(fnp|
|00002200| 74 72 25 29 0d 09 a6 19 | f2 61 6c 6f 63 64 6f 75 |tr%)....|.alocdou|
|00002210| 62 6c 65 28 70 72 6f 63 | 70 74 72 25 29 0d 09 b0 |ble(proc|ptr%)...|
|00002220| 04 0d 09 ba 28 fb 33 3a | f1 27 22 43 72 65 61 74 |....(.3:|.'"Creat|
|00002230| 69 6e 67 20 63 72 75 6e | 63 68 65 64 20 63 6f 64 |ing crun|ched cod|
|00002240| 65 2e 2e 2e 2e 22 3a fb | 37 0d 09 c4 48 ee 20 85 |e....":.|7...H. .|
|00002250| 20 f6 3a f1 22 20 61 74 | 20 6c 69 6e 65 20 22 9e | .:." at| line ".|
|00002260| 3a f1 22 4c 69 6e 65 20 | 6e 75 6d 62 65 72 20 69 |:."Line |number i|
|00002270| 6e 20 6f 72 69 67 69 6e | 61 6c 20 3d 20 22 6c 69 |n origin|al = "li|
|00002280| 6e 65 6c 25 2b 32 35 36 | 2a 6c 69 6e 65 68 25 3a |nel%+256|*lineh%:|
|00002290| e0 0d 09 ce 04 0d 09 d8 | 09 f2 6d 61 73 68 0d 09 |........|..mash..|
|000022a0| e2 08 40 25 3d 30 0d 09 | ec 3c fb 33 3a f1 27 27 |..@%=0..|.<.3:.''|
|000022b0| 22 53 74 61 74 69 73 74 | 69 63 73 20 3a 20 50 72 |"Statist|ics : Pr|
|000022c0| 6f 67 72 61 6d 20 27 22 | 46 24 22 27 20 43 72 75 |ogram '"|F$"' Cru|
|000022d0| 6e 63 68 65 64 20 74 6f | 20 27 22 6f 75 74 24 22 |nched to| '"out$"|
|000022e0| 27 22 0d 09 f6 1f f1 22 | 4f 72 69 67 69 6e 61 6c |'"....."|Original|
|000022f0| 20 6c 65 6e 67 74 68 20 | 3a 20 26 22 7e 6c 65 6e | length |: &"~len|
|00002300| 25 0d 0a 00 2f f1 22 4e | 65 77 20 6c 65 6e 67 74 |%.../."N|ew lengt|
|00002310| 68 20 20 20 20 20 20 3a | 20 26 22 7e 6c 69 6e 65 |h      :| &"~line|
|00002320| 62 61 73 65 25 2b 32 2d | 6e 65 77 62 61 73 65 25 |base%+2-|newbase%|
|00002330| 0d 0a 0a 36 f1 22 53 61 | 76 69 6e 67 20 20 20 20 |...6."Sa|ving    |
|00002340| 20 20 20 20 20 20 20 20 | 26 22 7e 6c 65 6e 25 2d |        |&"~len%-|
|00002350| 28 6c 69 6e 65 62 61 73 | 65 25 2b 32 2d 6e 65 77 |(linebas|e%+2-new|
|00002360| 62 61 73 65 25 29 0d 0a | 14 4a f1 22 43 72 75 6e |base%)..|.J."Crun|
|00002370| 63 68 65 64 20 70 72 6f | 67 20 69 73 20 20 20 22 |ched pro|g is   "|
|00002380| 28 28 6c 69 6e 65 62 61 | 73 65 25 2b 32 2d 6e 65 |((lineba|se%+2-ne|
|00002390| 77 62 61 73 65 25 29 2a | 31 30 30 29 81 6c 65 6e |wbase%)*|100).len|
|000023a0| 25 22 25 20 6f 66 20 6f | 72 69 67 69 6e 61 6c 22 |%"% of o|riginal"|
|000023b0| 0d 0a 1e 08 74 25 3d 91 | 0d 0a 28 3f f1 22 54 69 |....t%=.|..(?."Ti|
|000023c0| 6d 65 20 54 61 6b 65 6e | 20 20 20 20 20 20 20 20 |me Taken|        |
|000023d0| 20 22 74 25 81 36 30 30 | 30 22 20 6d 69 6e 73 2c | "t%.600|0" mins,|
|000023e0| 20 22 28 74 25 83 36 30 | 30 30 29 20 81 31 30 30 | "(t%.60|00) .100|
|000023f0| 22 20 73 65 63 73 22 0d | 0a 32 06 fb 37 0d 0a 3c |" secs".|.2..7..<|
|00002400| 05 e0 0d 0a 46 0a dd f2 | 73 63 61 6e 0d 0a 50 0c |....F...|scan..P.|
|00002410| 70 74 25 3d 62 75 66 25 | 0d 0a 5a 0e 61 73 6d 66 |pt%=buf%|..Z.asmf|
|00002420| 6c 61 67 25 3d 30 0d 0a | 64 11 c8 95 20 70 74 25 |lag%=0..|d... pt%|
|00002430| 3f 31 3c 3e 26 46 46 0d | 0a 6e 12 20 20 6c 69 6e |?1<>&FF.|.n.  lin|
|00002440| 65 68 25 3d 70 74 25 3f | 31 0d 0a 78 12 20 20 6c |eh%=pt%?|1..x.  l|
|00002450| 69 6e 65 6c 25 3d 70 74 | 25 3f 32 0d 0a 82 14 20 |inel%=pt|%?2.... |
|00002460| 20 6c 69 6e 65 6c 65 6e | 25 3d 70 74 25 3f 33 0d | linelen|%=pt%?3.|
|00002470| 0a 8c 16 20 20 6c 6c 25 | 3d 6c 69 6e 65 6c 65 6e |...  ll%|=linelen|
|00002480| 25 2b 70 74 25 0d 0a 96 | 23 f4 20 20 50 52 49 4e |%+pt%...|#.  PRIN|
|00002490| 54 22 3c 22 6c 69 6e 65 | 6c 25 2b 32 35 36 2a 6c |T"<"line|l%+256*l|
|000024a0| 69 6e 65 68 25 22 3e 22 | 0d 0a a0 0c 20 20 70 74 |ineh%">"|....  pt|
|000024b0| 25 2b 3d 34 0d 0a aa 3b | 20 20 6c 61 73 74 77 61 |%+=4...;|  lastwa|
|000024c0| 73 25 3d 30 20 3a f4 20 | 6c 61 73 74 20 76 61 72 |s%=0 :. |last var|
|000024d0| 20 77 61 73 20 61 73 6d | 20 2e 76 61 72 2c 20 73 | was asm| .var, s|
|000024e0| 6f 20 6e 65 78 74 20 69 | 73 20 73 74 6d 6e 74 0d |o next i|s stmnt.|
|000024f0| 0a b4 12 20 20 71 75 6f | 74 65 66 6c 61 67 25 3d |...  quo|teflag%=|
|00002500| 30 0d 0a be 1a 20 20 72 | 65 6d 66 6c 61 67 25 3d |0....  r|emflag%=|
|00002510| 30 3a 62 79 66 6c 61 67 | 25 3d 30 0d 0a c8 0d 20 |0:byflag|%=0.... |
|00002520| 20 77 68 61 74 25 3d 30 | 0d 0a d2 2a 20 20 64 69 | what%=0|...*  di|
|00002530| 6d 66 6c 61 67 25 3d 30 | 20 3a f4 20 54 4f 20 63 |mflag%=0| :. TO c|
|00002540| 61 74 63 68 20 44 49 4d | 20 6e 20 31 30 30 20 65 |atch DIM| n 100 e|
|00002550| 74 63 0d 0a dc 11 73 74 | 61 72 74 73 74 6d 6e 74 |tc....st|artstmnt|
|00002560| 25 3d b9 0d 0a e6 1b 20 | 20 c8 95 20 70 74 25 3c |%=..... | .. pt%<|
|00002570| 6c 6c 25 20 80 20 77 68 | 61 74 25 3c 3e 38 0d 0a |ll% . wh|at%<>8..|
|00002580| f0 0c 20 20 20 20 f2 67 | 65 74 0d 0a fa 12 20 20 |..    .g|et....  |
|00002590| 20 20 c8 8e 20 77 68 61 | 74 25 20 ca 0d 0b 04 34 |  .. wha|t% ....4|
|000025a0| 20 20 20 20 20 c9 20 31 | 20 20 3a 20 e7 20 a4 73 |     . 1|  : . .s|
|000025b0| 74 6f 72 65 28 67 6f 74 | 24 2c 72 65 61 6c 70 74 |tore(got|$,realpt|
|000025c0| 72 25 29 3a 20 f1 67 6f | 74 24 3b 3a f2 74 61 62 |r%): .go|t$;:.tab|
|000025d0| 0d 0b 0e 36 20 20 20 20 | 20 c9 20 32 20 20 3a 20 |...6    | . 2  : |
|000025e0| e7 20 a4 73 74 6f 72 65 | 28 67 6f 74 24 2c 69 6e |. .store|(got$,in|
|000025f0| 74 70 74 72 25 29 3a 20 | f1 67 6f 74 24 22 25 22 |tptr%): |.got$"%"|
|00002600| 3b 3a f2 74 61 62 0d 0b | 18 3a 20 20 20 20 20 c9 |;:.tab..|.:     .|
|00002610| 20 33 20 20 3a 20 e7 20 | a4 73 74 6f 72 65 28 67 | 3  : . |.store(g|
|00002620| 6f 74 24 2c 73 74 72 69 | 6e 67 70 74 72 25 29 3a |ot$,stri|ngptr%):|
|00002630| 20 f1 67 6f 74 24 3b 22 | 24 22 3b 3a f2 74 61 62 | .got$;"|$";:.tab|
|00002640| 0d 0b 22 3a 20 20 20 20 | 20 c9 20 34 20 20 3a 20 |..":    | . 4  : |
|00002650| e7 20 a4 73 74 6f 72 65 | 28 67 6f 74 24 2c 72 65 |. .store|(got$,re|
|00002660| 61 6c 61 70 74 72 25 29 | 20 3a 20 f1 67 6f 74 24 |alaptr%)| : .got$|
|00002670| 3b 22 28 22 3b 3a f2 74 | 61 62 0d 0b 2c 3a 20 20 |;"(";:.t|ab..,:  |
|00002680| 20 20 20 c9 20 31 32 20 | 3a 20 e7 20 a4 73 74 6f |   . 12 |: . .sto|
|00002690| 72 65 28 67 6f 74 24 2c | 69 6e 74 61 70 74 72 25 |re(got$,|intaptr%|
|000026a0| 29 20 3a 20 f1 67 6f 74 | 24 3b 22 25 28 22 3b 3a |) : .got|$;"%(";:|
|000026b0| f2 74 61 62 0d 0b 36 3b | 20 20 20 20 20 c9 20 31 |.tab..6;|     . 1|
|000026c0| 33 20 3a 20 e7 20 a4 73 | 74 6f 72 65 28 67 6f 74 |3 : . .s|tore(got|
|000026d0| 24 2c 73 74 72 69 6e 67 | 61 70 74 72 25 29 3a f1 |$,string|aptr%):.|
|000026e0| 67 6f 74 24 3b 22 24 28 | 22 3b 3a f2 74 61 62 0d |got$;"$(|";:.tab.|
|000026f0| 0b 40 3a 20 20 20 20 20 | c9 20 35 20 20 3a 20 e7 |.@:     |. 5  : .|
|00002700| 20 a4 73 74 6f 72 65 28 | 67 6f 74 24 2c 70 72 6f | .store(|got$,pro|
|00002710| 63 70 74 72 25 29 20 3a | f1 22 50 52 4f 43 22 67 |cptr%) :|."PROC"g|
|00002720| 6f 74 24 3b 3a f2 74 61 | 62 0d 0b 4a 35 20 20 20 |ot$;:.ta|b..J5   |
|00002730| 20 20 c9 20 36 20 20 3a | 20 e7 20 a4 73 74 6f 72 |  . 6  :| . .stor|
|00002740| 65 28 67 6f 74 24 2c 66 | 6e 70 74 72 25 29 3a f1 |e(got$,f|nptr%):.|
|00002750| 22 46 4e 22 67 6f 74 24 | 3b 3a f2 74 61 62 0d 0b |"FN"got$|;:.tab..|
|00002760| 54 51 20 20 20 20 20 c9 | 20 37 20 20 3a 20 f4 49 |TQ     .| 7  : .I|
|00002770| 46 20 46 4e 73 74 6f 72 | 65 28 46 4e 6e 75 6d 28 |F FNstor|e(FNnum(|
|00002780| 67 6f 74 2c 67 6f 74 24 | 29 2c 6e 75 6d 70 74 72 |got,got$|),numptr|
|00002790| 25 29 3a 50 52 49 4e 54 | 22 4e 75 6d 20 20 22 46 |%):PRINT|"Num  "F|
|000027a0| 4e 6e 75 6d 28 67 6f 74 | 2c 67 6f 74 24 29 3b 0d |Nnum(got|,got$);.|
|000027b0| 0b 5e 32 20 20 20 20 20 | c9 20 31 30 20 3a 20 e7 |.^2     |. 10 : .|
|000027c0| 20 67 6f 74 24 3d 22 22 | 22 22 20 71 75 6f 74 65 | got$=""|"" quote|
|000027d0| 66 6c 61 67 25 3d ac 71 | 75 6f 74 65 66 6c 61 67 |flag%=.q|uoteflag|
|000027e0| 25 0d 0b 68 0a 20 20 20 | 20 20 cb 0d 0b 72 16 20 |%..h.   |  ...r. |
|000027f0| 20 20 20 20 73 74 61 72 | 74 73 74 6d 6e 74 25 3d |    star|tstmnt%=|
|00002800| 30 0d 0b 7c 19 20 20 20 | 20 20 e7 20 71 75 6f 74 |0..|.   |  . quot|
|00002810| 65 66 6c 61 67 25 3d 30 | 20 8c 0d 0b 86 49 20 20 |eflag%=0| ....I  |
|00002820| 20 20 20 20 20 e7 20 77 | 68 61 74 25 3d 30 20 3a |     . w|hat%=0 :|
|00002830| 20 e7 20 67 6f 74 24 3d | bd 26 44 46 20 84 20 67 | . got$=|.&DF . g|
|00002840| 6f 74 24 3d bd 26 45 43 | 20 84 20 67 6f 74 24 3d |ot$=.&EC| . got$=|
|00002850| bd 26 43 38 2b bd 26 39 | 32 3a 62 79 66 6c 61 67 |.&C8+.&9|2:byflag|
|00002860| 25 3d 31 0d 0b 90 32 20 | 20 20 20 20 20 20 e7 20 |%=1...2 |      . |
|00002870| 64 69 6d 66 6c 61 67 25 | 3d 32 20 20 3a 20 e7 20 |dimflag%|=2  : . |
|00002880| 67 6f 74 24 3d 22 2c 22 | 20 3a 20 64 69 6d 66 6c |got$=","| : dimfl|
|00002890| 61 67 25 3d 31 0d 0b 9a | 23 20 20 20 20 20 20 20 |ag%=1...|#       |
|000028a0| e7 20 67 6f 74 24 3d bd | 26 44 45 20 3a 20 64 69 |. got$=.|&DE : di|
|000028b0| 6d 66 6c 61 67 25 3d 31 | 0d 0b a4 3f 20 20 20 20 |mflag%=1|...?    |
|000028c0| 20 20 20 e7 20 67 6f 74 | 24 3d 22 5b 22 20 61 73 |   . got|$="[" as|
|000028d0| 6d 66 6c 61 67 25 2b 3d | 31 20 3a e7 20 61 73 6d |mflag%+=|1 :. asm|
|000028e0| 66 6c 61 67 25 3d 31 20 | 3a 20 73 74 61 72 74 73 |flag%=1 |: starts|
|000028f0| 74 6d 6e 74 25 3d b9 0d | 0b ae 42 20 20 20 20 20 |tmnt%=..|..B     |
|00002900| 20 20 e7 20 67 6f 74 24 | 3d 22 5d 22 20 61 73 6d |  . got$|="]" asm|
|00002910| 66 6c 61 67 25 2d 3d 31 | 20 3a e7 20 61 73 6d 66 |flag%-=1| :. asmf|
|00002920| 6c 61 67 25 3c 30 20 20 | 3a 85 20 31 2c 22 54 6f |lag%<0  |:. 1,"To|
|00002930| 6f 20 6d 61 6e 79 20 5d | 22 0d 0b b8 3b 20 20 20 |o many ]|"...;   |
|00002940| 20 20 20 20 e7 20 67 6f | 74 24 3d 22 3a 22 20 73 |    . go|t$=":" s|
|00002950| 74 61 72 74 73 74 6d 6e | 74 25 3d b9 20 3a 20 64 |tartstmn|t%=. : d|
|00002960| 69 6d 66 6c 61 67 25 3d | 30 20 3a 62 79 66 6c 61 |imflag%=|0 :byfla|
|00002970| 67 25 3d 30 0d 0b c2 3b | 20 20 20 20 20 20 20 e7 |g%=0...;|       .|
|00002980| 20 28 77 68 61 74 25 3d | 31 20 84 20 77 68 61 74 | (what%=|1 . what|
|00002990| 25 3d 32 29 20 80 20 6c | 61 73 74 77 61 73 25 20 |%=2) . l|astwas% |
|000029a0| 3a 20 73 74 61 72 74 73 | 74 6d 6e 74 25 3d 31 0d |: starts|tmnt%=1.|
|000029b0| 0b cc 1c 20 20 20 20 20 | 20 20 6c 61 73 74 77 61 |...     |  lastwa|
|000029c0| 73 25 3d 67 6f 74 24 3d | 22 2e 22 0d 0b d6 0c 20 |s%=got$=|".".... |
|000029d0| 20 20 20 20 20 20 cd 0d | 0b e0 07 20 20 ce 0d 0b |      ..|...  ...|
|000029e0| ea 04 0d 0b f4 04 0d 0b | fe 05 ce 0d 0c 08 04 0d |........|........|
|000029f0| 0c 12 04 0d 0c 1c 05 e1 | 0d 0c 26 04 0d 0c 30 24 |........|..&...0$|
|00002a00| dd f2 74 61 62 3a 20 20 | e7 20 21 61 64 72 3c 3e |..tab:  |. !adr<>|
|00002a10| 31 3a f5 3a ef 33 32 3a | fd b1 20 83 31 36 3d 30 |1:.:.32:|.. .16=0|
|00002a20| 0d 0c 3a 05 e1 0d 0c 44 | 04 0d 0c 4e 04 0d 0c 58 |..:....D|...N...X|
|00002a30| 04 0d 0c 62 31 dd 20 a4 | 6e 75 6d 28 76 2c 76 24 |...b1. .|num(v,v$|
|00002a40| 29 3a f4 20 70 72 69 6e | 74 20 6e 75 6d 65 72 69 |):. prin|t numeri|
|00002a50| 63 20 69 6e 20 73 68 6f | 72 74 65 73 74 20 66 6f |c in sho|rtest fo|
|00002a60| 72 6d 0d 0c 6c 38 e7 20 | 76 3d a8 76 20 3a e7 28 |rm..l8. |v=.v :.(|
|00002a70| a9 28 c3 76 29 3e a9 28 | c3 7e a8 76 29 2b 31 29 |.(.v)>.(|.~.v)+1)|
|00002a80| 20 84 20 76 3d 26 38 30 | 30 30 30 30 30 30 20 3a | . v=&80|000000 :|
|00002a90| 20 3d 22 26 22 2b c3 7e | a8 76 0d 0c 76 07 3d 76 | ="&"+.~|.v..v.=v|
|00002aa0| 24 0d 0c 80 04 0d 0c 8a | 04 0d 0c 94 09 dd f2 67 |$.......|.......g|
|00002ab0| 65 74 0d 0c 9e 10 f4 20 | 70 74 25 2d 3e 20 70 72 |et..... |pt%-> pr|
|00002ac0| 6f 67 0d 0c a8 1a f4 20 | 6c 6c 25 3d 61 64 64 72 |og..... |ll%=addr|
|00002ad0| 20 6f 66 20 6c 69 6e 65 | 20 65 6e 64 0d 0c b2 1e | of line| end....|
|00002ae0| f4 20 61 73 6d 66 6c 61 | 67 25 2c 71 75 6f 74 65 |. asmfla|g%,quote|
|00002af0| 66 6c 61 67 25 20 75 73 | 65 64 0d 0c bc 04 0d 0c |flag% us|ed......|
|00002b00| c6 04 0d 0c d0 0f f4 20 | 67 6f 74 24 3d 69 74 65 |....... |got$=ite|
|00002b10| 6d 0d 0c da 0f f4 20 30 | 20 3a 20 54 4f 4b 45 4e |m..... 0| : TOKEN|
|00002b20| 0d 0c e4 12 f4 20 31 20 | 3a 20 72 65 61 6c 20 76 |..... 1 |: real v|
|00002b30| 61 72 0d 0c ee 11 f4 20 | 32 20 3a 20 69 6e 74 20 |ar..... |2 : int |
|00002b40| 76 61 72 0d 0c f8 14 f4 | 20 33 20 3a 20 73 74 72 |var.....| 3 : str|
|00002b50| 69 6e 67 20 76 61 72 0d | 0d 02 18 f4 20 34 20 3a |ing var.|.... 4 :|
|00002b60| 20 72 65 61 6c 20 61 72 | 72 61 79 20 76 61 72 0d | real ar|ray var.|
|00002b70| 0d 0c 13 f4 20 35 20 3a | 20 50 52 4f 43 2b 6e 61 |.... 5 :| PROC+na|
|00002b80| 6d 65 0d 0d 16 11 f4 20 | 36 20 3a 20 46 4e 2b 6e |me..... |6 : FN+n|
|00002b90| 61 6d 65 0d 0d 20 12 f4 | 20 37 20 3a 20 6e 75 6d |ame.. ..| 7 : num|
|00002ba0| 63 6f 6e 73 74 0d 0d 2a | 13 f4 20 38 20 3a 20 65 |const..*|.. 8 : e|
|00002bb0| 6e 64 6f 66 6c 69 6e 65 | 0d 0d 34 13 f4 20 39 20 |ndofline|..4.. 9 |
|00002bc0| 3a 20 65 6e 64 6f 66 70 | 72 6f 67 0d 0d 3e 20 f4 |: endofp|rog..> .|
|00002bd0| 20 31 30 20 3a 20 61 6e | 79 74 68 69 6e 67 65 6c | 10 : an|ythingel|
|00002be0| 73 65 20 28 31 20 63 68 | 61 72 29 0d 0d 48 1f f4 |se (1 ch|ar)..H..|
|00002bf0| 20 31 31 20 3a 20 2a 20 | 63 6f 6d 6d 61 6e 64 2c | 11 : * |command,|
|00002c00| 44 41 54 41 20 73 74 6d | 6e 74 0d 0d 52 18 f4 20 |DATA stm|nt..R.. |
|00002c10| 31 32 20 3a 20 69 6e 74 | 20 61 72 72 61 79 20 76 |12 : int| array v|
|00002c20| 61 72 0d 0d 5c 1b f4 20 | 31 33 20 3a 20 73 74 72 |ar..\.. |13 : str|
|00002c30| 69 6e 67 20 61 72 72 61 | 79 20 76 61 72 0d 0d 66 |ing arra|y var..f|
|00002c40| 0c 77 68 61 74 25 3d 2d | 31 0d 0d 70 12 e7 20 71 |.what%=-|1..p.. q|
|00002c50| 75 6f 74 65 66 6c 61 67 | 25 20 8c 0d 0d 7a 0e 20 |uoteflag|% ...z. |
|00002c60| 20 70 64 25 3d 3f 70 74 | 25 0d 0d 84 18 20 20 67 | pd%=?pt|%....  g|
|00002c70| 6f 74 24 3d bd 70 64 25 | 3a 77 68 61 74 25 3d 31 |ot$=.pd%|:what%=1|
|00002c80| 30 0d 0d 8e 0c 20 20 70 | 74 25 2b 3d 31 0d 0d 98 |0....  p|t%+=1...|
|00002c90| 05 cc 0d 0d a2 3c 20 20 | e7 20 61 73 6d 66 6c 61 |.....<  |. asmfla|
|00002ca0| 67 25 20 3d 30 20 84 20 | 73 74 61 72 74 73 74 6d |g% =0 . |startstm|
|00002cb0| 6e 74 25 3c 3e 30 20 3a | 20 c8 95 3f 70 74 25 3d |nt%<>0 :| ..?pt%=|
|00002cc0| 33 32 20 3a 20 70 74 25 | 2b 3d 31 20 3a ce 0d 0d |32 : pt%|+=1 :...|
|00002cd0| ac 22 20 20 e7 20 70 74 | 25 3d 6c 6c 25 20 3a 67 |."  . pt|%=ll% :g|
|00002ce0| 6f 74 24 3d 22 22 3a 77 | 68 61 74 25 3d 38 3a e1 |ot$="":w|hat%=8:.|
|00002cf0| 0d 0d b6 0e 20 20 70 64 | 25 3d 3f 70 74 25 0d 0d |....  pd|%=?pt%..|
|00002d00| c0 0e 20 20 c8 8e 20 70 | 64 25 20 ca 0d 0d ca 39 |..  .. p|d% ....9|
|00002d10| 20 20 20 20 c9 20 26 43 | 36 2c 26 43 37 2c 26 43 |    . &C|6,&C7,&C|
|00002d20| 38 20 3a 20 77 68 61 74 | 25 3d 30 20 3a 20 67 6f |8 : what|%=0 : go|
|00002d30| 74 24 3d bd 70 64 25 2b | bd 70 74 25 3f 31 3a 70 |t$=.pd%+|.pt%?1:p|
|00002d40| 74 25 2b 3d 32 0d 0d d4 | 34 20 20 20 20 c9 20 26 |t%+=2...|4    . &|
|00002d50| 46 32 20 3a 20 77 68 61 | 74 25 3d 35 20 3a 20 70 |F2 : wha|t%=5 : p|
|00002d60| 74 25 2b 3d 31 3a 67 6f | 74 24 3d a4 67 65 74 74 |t%+=1:go|t$=.gett|
|00002d70| 65 78 74 28 76 61 72 24 | 29 0d 0d de 34 20 20 20 |ext(var$|)...4   |
|00002d80| 20 c9 20 26 41 34 20 3a | 20 77 68 61 74 25 3d 36 | . &A4 :| what%=6|
|00002d90| 20 3a 20 70 74 25 2b 3d | 31 3a 67 6f 74 24 3d a4 | : pt%+=|1:got$=.|
|00002da0| 67 65 74 74 65 78 74 28 | 76 61 72 24 29 0d 0d e8 |gettext(|var$)...|
|00002db0| 4a 20 20 20 20 c9 20 97 | 22 26 22 3a 20 77 68 61 |J    . .|"&": wha|
|00002dc0| 74 25 3d 37 20 3a 67 6f | 74 3d a0 a4 67 65 74 74 |t%=7 :go|t=..gett|
|00002dd0| 65 78 74 28 22 30 31 32 | 33 34 35 36 37 38 39 41 |ext("012|3456789A|
|00002de0| 42 43 44 45 46 61 62 63 | 64 65 66 22 29 3a 67 6f |BCDEFabc|def"):go|
|00002df0| 74 24 3d c3 67 6f 74 0d | 0d f2 38 20 20 20 20 c9 |t$=.got.|..8    .|
|00002e00| 20 97 22 25 22 20 3a 20 | 77 68 61 74 25 3d 37 20 | ."%" : |what%=7 |
|00002e10| 3a 20 67 6f 74 3d a0 a4 | 67 65 74 74 65 78 74 28 |: got=..|gettext(|
|00002e20| 22 30 31 22 29 3a 67 6f | 74 24 3d c3 67 6f 74 0d |"01"):go|t$=.got.|
|00002e30| 0d fc 5a 20 20 20 20 c9 | 20 34 38 2c 34 39 2c 35 |..Z    .| 48,49,5|
|00002e40| 30 2c 35 31 2c 35 32 2c | 35 33 2c 35 34 2c 35 35 |0,51,52,|53,54,55|
|00002e50| 2c 35 36 2c 35 37 20 3a | 20 77 68 61 74 25 3d 37 |,56,57 :| what%=7|
|00002e60| 20 3a 20 67 6f 74 24 3d | a4 67 65 74 74 65 78 74 | : got$=|.gettext|
|00002e70| 28 22 30 31 32 33 34 35 | 36 37 38 39 2e 22 29 3a |("012345|6789."):|
|00002e80| 67 6f 74 3d a0 67 6f 74 | 24 0d 0e 06 34 20 20 20 |got=.got|$...4   |
|00002e90| 20 c9 20 26 38 44 20 3a | 20 85 20 31 2c 22 43 61 | . &8D :| . 1,"Ca|
|00002ea0| 6e 27 74 20 63 6f 70 65 | 20 77 69 74 68 20 6c 69 |n't cope| with li|
|00002eb0| 6e 65 20 6e 75 6d 62 65 | 72 73 21 22 3a 0d 0e 10 |ne numbe|rs!":...|
|00002ec0| 4f 20 20 20 20 c9 20 97 | 22 2a 22 20 3a e7 20 73 |O    . .|"*" :. s|
|00002ed0| 74 61 72 74 73 74 6d 6e | 74 25 20 3a 77 68 61 74 |tartstmn|t% :what|
|00002ee0| 25 3d 31 31 3a 67 6f 74 | 24 3d a4 67 65 74 65 6f |%=11:got|$=.geteo|
|00002ef0| 6c 20 8b 20 67 6f 74 24 | 3d 22 2a 22 3a 77 68 61 |l . got$|="*":wha|
|00002f00| 74 25 3d 31 30 3a 70 74 | 25 2b 3d 31 0d 0e 1a 05 |t%=10:pt|%+=1....|
|00002f10| 20 0d 0e 24 25 20 20 20 | 20 c9 20 26 44 43 20 3a | ..$%   | . &DC :|
|00002f20| 20 77 68 61 74 25 3d 31 | 31 3a 67 6f 74 24 3d a4 | what%=1|1:got$=.|
|00002f30| 67 65 74 65 6f 6c 0d 0e | 2e 27 20 20 20 20 c9 20 |geteol..|.'    . |
|00002f40| 26 46 34 20 3a 20 77 68 | 61 74 25 3d 38 3a 67 6f |&F4 : wh|at%=8:go|
|00002f50| 74 24 3d 22 22 3a 70 74 | 25 3d 6c 6c 25 0d 0e 38 |t$="":pt|%=ll%..8|
|00002f60| 07 20 20 7f 0d 0e 42 33 | 20 20 20 20 e7 20 28 73 |.  ...B3|    . (s|
|00002f70| 74 61 72 74 73 74 6d 6e | 74 25 3c 3e 30 29 20 80 |tartstmn|t%<>0) .|
|00002f80| 20 61 73 6d 66 6c 61 67 | 25 20 80 20 70 64 25 3c | asmflag|% . pd%<|
|00002f90| 3e 97 22 2e 22 20 8c 0d | 0e 4c 20 20 20 20 20 20 |>."." ..|.L      |
|00002fa0| 20 c8 95 20 3f 70 74 25 | 3d 33 32 20 3a 20 70 74 | .. ?pt%|=32 : pt|
|00002fb0| 25 2b 3d 31 20 3a ce 0d | 0e 56 11 20 20 20 20 20 |%+=1 :..|.V.     |
|00002fc0| 20 67 6f 74 24 3d 22 22 | 0d 0e 60 55 20 20 20 20 | got$=""|..`U    |
|00002fd0| 20 20 c8 95 20 3f 70 74 | 25 3c 3e 33 32 20 80 20 |  .. ?pt|%<>32 . |
|00002fe0| 70 74 25 3c 6c 6c 25 20 | 80 20 a7 61 73 6d 24 2c |pt%<ll% |. .asm$,|
|00002ff0| bd 3f 70 74 25 29 3c 3e | 30 20 80 20 c2 67 6f 74 |.?pt%)<>|0 . .got|
|00003000| 24 2c 33 29 3c 3e 22 6f | 70 74 22 20 80 20 c2 67 |$,3)<>"o|pt" . .g|
|00003010| 6f 74 24 2c 33 29 3c 3e | 22 4f 50 54 22 0d 0e 6a |ot$,3)<>|"OPT"..j|
|00003020| 1f 20 20 20 20 20 20 20 | 20 67 6f 74 24 2b 3d bd |.       | got$+=.|
|00003030| 3f 70 74 25 20 3a 70 74 | 25 2b 3d 31 0d 0e 74 0d |?pt% :pt|%+=1..t.|
|00003040| 20 20 20 20 20 20 20 20 | ce 0d 0e 7e 13 20 20 20 |        |...~.   |
|00003050| 20 20 20 77 68 61 74 25 | 3d 31 30 3a 0d 0e 88 2a |   what%|=10:...*|
|00003060| 20 20 20 20 20 20 c8 95 | 20 3f 70 74 25 3d 33 32 |      ..| ?pt%=32|
|00003070| 20 80 20 70 74 25 3c 6c | 6c 25 20 3a 20 70 74 25 | . pt%<l|l% : pt%|
|00003080| 2b 3d 31 20 3a ce 0d 0e | 92 29 20 20 20 20 20 20 |+=1 :...|.)      |
|00003090| e7 20 a7 22 53 57 49 73 | 77 69 22 2c c0 67 6f 74 |. ."SWIs|wi",.got|
|000030a0| 24 2c 33 29 29 3a 67 6f | 74 24 2b 3d 22 20 22 0d |$,3)):go|t$+=" ".|
|000030b0| 0e 9c 8c 20 20 20 20 20 | 20 e7 20 70 74 25 3c 6c |...     | . pt%<l|
|000030c0| 6c 25 20 e7 20 a7 22 41 | 42 43 44 45 46 47 48 49 |l% . ."A|BCDEFGHI|
|000030d0| 4a 4b 4c 4d 4e 4f 50 51 | 53 54 55 56 57 58 59 5a |JKLMNOPQ|STUVWXYZ|
|000030e0| 61 62 63 64 65 66 67 68 | 69 6a 6b 6c 6d 6e 6f 70 |abcdefgh|ijklmnop|
|000030f0| 71 73 74 75 76 77 78 79 | 7a 22 2c bd 3f 70 74 25 |qstuvwxy|z",.?pt%|
|00003100| 29 3a 67 6f 74 24 2b 3d | 22 20 22 20 3a f4 20 64 |):got$+=|" " :. d|
|00003110| 6f 6e 27 74 20 72 69 73 | 6b 20 65 72 72 6f 72 73 |on't ris|k errors|
|00003120| 20 64 75 65 20 74 6f 20 | 63 6f 6e 63 61 74 21 20 | due to |concat! |
|00003130| 28 78 63 65 70 74 20 52 | 2c 72 29 0d 0e a6 4d 20 |(xcept R|,r)...M |
|00003140| 20 20 20 20 20 e7 20 70 | 74 25 3c 6c 6c 25 20 3a |     . p|t%<ll% :|
|00003150| e7 20 a7 22 4d 55 4c 20 | 4d 4c 41 20 6d 75 6c 20 |. ."MUL |MLA mul |
|00003160| 6d 6c 61 22 2c c0 67 6f | 74 24 2c 33 29 29 3a e7 |mla",.go|t$,3)):.|
|00003170| 20 c2 67 6f 74 24 2c 31 | 29 3c 3e 22 20 22 3a 67 | .got$,1|)<>" ":g|
|00003180| 6f 74 24 2b 3d 22 20 22 | 0d 0e b0 3d 20 20 20 20 |ot$+=" "|...=    |
|00003190| 20 20 e7 20 28 97 28 c0 | 67 6f 74 24 2c 31 29 29 |  . (.(.|got$,1))|
|000031a0| 80 26 44 46 29 3d 97 22 | 42 22 20 3a e7 20 c2 67 |.&DF)=."|B" :. .g|
|000031b0| 6f 74 24 2c 31 29 3c 3e | 22 20 22 3a 67 6f 74 24 |ot$,1)<>|" ":got$|
|000031c0| 2b 3d 22 20 22 0d 0e ba | 27 20 20 20 20 20 20 e7 |+=" "...|'      .|
|000031d0| 20 73 74 61 72 74 73 74 | 6d 6e 74 25 3d 31 20 67 | startst|mnt%=1 g|
|000031e0| 6f 74 24 3d 22 20 22 2b | 67 6f 74 24 0d 0e c4 04 |ot$=" "+|got$....|
|000031f0| 0d 0e ce 09 20 20 20 20 | cc 0d 0e d8 04 0d 0e e2 |....    |........|
|00003200| 76 20 20 20 20 20 20 e7 | 20 61 73 6d 66 6c 61 67 |v      .| asmflag|
|00003210| 25 20 e7 20 28 70 64 25 | 80 26 44 46 29 3d 97 22 |% . (pd%|.&DF)=."|
|00003220| 52 22 3a e7 20 a7 22 30 | 31 32 33 34 35 36 37 38 |R":. ."0|12345678|
|00003230| 39 22 2c bd 70 74 25 3f | 31 29 20 3a 20 70 74 25 |9",.pt%?|1) : pt%|
|00003240| 2b 3d 31 3a 77 68 61 74 | 25 3d 37 20 3a 20 67 6f |+=1:what|%=7 : go|
|00003250| 74 24 3d a4 67 65 74 74 | 65 78 74 28 22 30 31 32 |t$=.gett|ext("012|
|00003260| 33 34 35 36 37 38 39 22 | 29 3a 67 6f 74 3d bb 67 |3456789"|):got=.g|
|00003270| 6f 74 24 0d 0e ec 16 20 | 20 20 20 20 20 e7 20 61 |ot$.... |     . a|
|00003280| 73 6d 66 6c 61 67 25 20 | 8c 0d 0e f6 2a 20 20 20 |smflag% |....*   |
|00003290| 20 20 20 20 20 73 68 24 | 3d a4 63 61 73 65 28 bd |     sh$|=.case(.|
|000032a0| 3f 70 74 25 2b bd 70 74 | 25 3f 31 2b bd 70 74 25 |?pt%+.pt|%?1+.pt%|
|000032b0| 3f 32 29 0d 0f 00 14 20 | 20 20 20 20 20 20 20 c8 |?2).... |       .|
|000032c0| 8e 20 73 68 24 20 ca 0d | 0f 0a 4e 20 20 20 20 20 |. sh$ ..|..N     |
|000032d0| 20 20 20 20 20 c9 20 22 | 4c 53 52 22 2c 22 41 53 |     . "|LSR","AS|
|000032e0| 52 22 2c 22 4c 53 4c 22 | 2c 22 52 4f 52 22 2c 22 |R","LSL"|,"ROR","|
|000032f0| 52 52 58 22 2c 22 41 53 | 4c 22 20 3a 20 67 6f 74 |RRX","AS|L" : got|
|00003300| 24 3d 73 68 24 3a 70 74 | 25 2b 3d 33 3a 77 68 61 |$=sh$:pt|%+=3:wha|
|00003310| 74 25 3d 31 30 0d 0f 14 | 0d 20 20 20 20 20 20 20 |t%=10...|.       |
|00003320| 20 cb 0d 0f 1e 0b 20 20 | 20 20 20 20 cd 0d 0f 28 | .....  |    ...(|
|00003330| 48 20 20 20 20 20 20 e7 | 20 62 79 66 6c 61 67 25 |H      .| byflag%|
|00003340| 20 e7 20 70 64 25 3d 97 | 22 42 22 3a e7 20 70 74 | . pd%=.|"B":. pt|
|00003350| 25 3f 31 3d 97 22 59 22 | 20 3a 20 77 68 61 74 25 |%?1=."Y"| : what%|
|00003360| 3d 31 30 3a 67 6f 74 24 | 3d 22 42 59 20 22 3a 70 |=10:got$|="BY ":p|
|00003370| 74 25 2b 3d 32 0d 0f 32 | 5a 20 20 20 20 20 20 e7 |t%+=2..2|Z      .|
|00003380| 20 77 68 61 74 25 3d 2d | 31 20 3a e7 20 a7 76 61 | what%=-|1 :. .va|
|00003390| 72 24 2c bd 70 64 25 29 | 20 f2 67 65 74 76 61 72 |r$,.pd%)| .getvar|
|000033a0| 20 3a 20 e7 20 61 73 6d | 66 6c 61 67 25 3a e7 20 | : . asm|flag%:. |
|000033b0| 67 6f 74 24 3d 22 50 43 | 22 20 84 20 67 6f 74 24 |got$="PC|" . got$|
|000033c0| 3d 22 70 63 22 3a 20 77 | 68 61 74 25 3d 31 30 0d |="pc": w|hat%=10.|
|000033d0| 0f 3c 04 0d 0f 46 04 0d | 0f 50 58 20 20 20 20 20 |.<...F..|.PX     |
|000033e0| 20 e7 20 73 74 61 72 74 | 73 74 6d 6e 74 25 3d 30 | . start|stmnt%=0|
|000033f0| 20 3a e7 20 70 64 25 3d | 97 22 2e 22 20 3a 20 77 | :. pd%=|."." : w|
|00003400| 68 61 74 25 3d 37 20 3a | 20 67 6f 74 24 3d a4 67 |hat%=7 :| got$=.g|
|00003410| 65 74 74 65 78 74 28 22 | 30 31 32 33 34 35 36 37 |ettext("|01234567|
|00003420| 38 39 2e 22 29 3a 67 6f | 74 3d a0 67 6f 74 24 0d |89."):go|t=.got$.|
|00003430| 0f 5a 04 0d 0f 64 09 20 | 20 20 20 cd 0d 0f 6e 05 |.Z...d. |   ...n.|
|00003440| 20 0d 0f 78 04 0d 0f 82 | 2c 20 20 20 20 e7 20 61 | ..x....|,    . a|
|00003450| 73 6d 66 6c 61 67 25 20 | 80 20 28 70 64 25 3d 97 |smflag% |. (pd%=.|
|00003460| 22 5c 22 20 84 20 70 64 | 25 3d 97 22 3b 22 29 20 |"\" . pd|%=.";") |
|00003470| 8c 0d 0f 8c 2c 20 20 20 | 20 20 20 c8 95 20 3f 70 |....,   |   .. ?p|
|00003480| 74 25 3c 3e 97 22 3a 22 | 20 80 20 70 74 25 3c 6c |t%<>.":"| . pt%<l|
|00003490| 6c 25 20 3a 20 70 74 25 | 2b 3d 31 3a ce 0d 0f 96 |l% : pt%|+=1:....|
|000034a0| 23 20 20 20 20 20 20 e7 | 20 70 74 25 3d 6c 6c 25 |#      .| pt%=ll%|
|000034b0| 3a 77 68 61 74 25 3d 38 | 3a 67 6f 74 24 3d 22 22 |:what%=8|:got$=""|
|000034c0| 0d 0f a0 09 20 20 20 20 | cd 0d 0f aa 04 0d 0f b4 |....    |........|
|000034d0| 04 0d 0f be 1e 20 20 20 | 20 e7 20 77 68 61 74 25 |.....   | . what%|
|000034e0| 3d 2d 31 20 80 20 70 64 | 25 3e 26 37 45 20 8c 0d |=-1 . pd|%>&7E ..|
|000034f0| 0f c8 11 20 20 20 20 20 | 20 77 68 61 74 25 3d 30 |...     | what%=0|
|00003500| 0d 0f d2 5d 20 20 20 20 | 20 20 e7 20 70 64 25 3d |...]    |  . pd%=|
|00003510| 26 42 38 20 80 20 70 74 | 25 3f 31 3d 97 22 50 22 |&B8 . pt|%?1=."P"|
|00003520| 20 80 20 a7 76 61 72 24 | 2c bd 70 74 25 3f 32 29 | . .var$|,.pt%?2)|
|00003530| 3d 30 20 3a 67 6f 74 24 | 3d bd 26 42 38 2b 22 50 |=0 :got$|=.&B8+"P|
|00003540| 22 3a 70 74 25 2b 3d 32 | 20 8b 20 67 6f 74 24 20 |":pt%+=2| . got$ |
|00003550| 3d bd 3f 70 74 25 3a 70 | 74 25 2b 3d 31 0d 0f dc |=.?pt%:p|t%+=1...|
|00003560| 04 0d 0f e6 09 20 20 20 | 20 cd 0d 0f f0 07 20 20 |.....   | .....  |
|00003570| cb 0d 0f fa 04 0d 10 04 | 05 cd 0d 10 0e 2a e7 20 |........|.....*. |
|00003580| 77 68 61 74 25 3d 2d 31 | 20 3a 77 68 61 74 25 3d |what%=-1| :what%=|
|00003590| 31 30 3a 67 6f 74 24 3d | bd 3f 70 74 25 3a 70 74 |10:got$=|.?pt%:pt|
|000035a0| 25 2b 3d 31 0d 10 18 04 | 0d 10 22 05 e1 0d 10 2c |%+=1....|.."....,|
|000035b0| 04 0d 10 36 0c dd f2 67 | 65 74 76 61 72 0d 10 40 |...6...g|etvar..@|
|000035c0| 17 67 6f 74 24 3d a4 67 | 65 74 74 65 78 74 28 76 |.got$=.g|ettext(v|
|000035d0| 61 72 24 29 0d 10 4a 0d | c8 8e 20 3f 70 74 25 20 |ar$)..J.|.. ?pt% |
|000035e0| ca 0d 10 54 1d 20 20 c9 | 20 97 22 25 22 20 3a 20 |...T.  .| ."%" : |
|000035f0| 77 68 61 74 25 3d 32 3a | 70 74 25 2b 3d 31 0d 10 |what%=2:|pt%+=1..|
|00003600| 5e 1d 20 20 c9 20 97 22 | 24 22 20 3a 20 77 68 61 |^.  . ."|$" : wha|
|00003610| 74 25 3d 33 3a 70 74 25 | 2b 3d 31 0d 10 68 1d 20 |t%=3:pt%|+=1..h. |
|00003620| 20 c9 20 97 22 28 22 20 | 3a 20 77 68 61 74 25 3d | . ."(" |: what%=|
|00003630| 34 3a 70 74 25 2b 3d 31 | 0d 10 72 11 20 20 7f 20 |4:pt%+=1|..r.  . |
|00003640| 3a 20 77 68 61 74 25 3d | 31 0d 10 7c 05 cb 0d 10 |: what%=|1..|....|
|00003650| 86 12 e7 20 3f 70 74 25 | 20 3d 97 22 28 22 20 8c |... ?pt%| =."(" .|
|00003660| 0d 10 90 16 e7 20 77 68 | 61 74 25 3d 32 3a 77 68 |..... wh|at%=2:wh|
|00003670| 61 74 25 3d 31 32 0d 10 | 9a 16 e7 20 77 68 61 74 |at%=12..|... what|
|00003680| 25 3d 33 3a 77 68 61 74 | 25 3d 31 33 0d 10 a4 0a |%=3:what|%=13....|
|00003690| 70 74 25 2b 3d 31 0d 10 | ae 05 cd 0d 10 b8 04 0d |pt%+=1..|........|
|000036a0| 10 c2 05 e1 0d 10 cc 04 | 0d 10 d6 0f dd 20 a4 63 |........|..... .c|
|000036b0| 61 73 65 28 41 24 29 0d | 10 e0 55 ea 61 25 3a e3 |ase(A$).|..U.a%:.|
|000036c0| 61 25 3d 31 20 b8 20 a9 | 20 41 24 20 3a e7 c1 41 |a%=1 . .| A$ :..A|
|000036d0| 24 2c 61 25 2c 31 29 3e | 3d 22 61 22 20 3a 20 e7 |$,a%,1)>|="a" : .|
|000036e0| c1 41 24 2c 61 25 2c 31 | 29 3c 3d 22 7a 22 20 3a |.A$,a%,1|)<="z" :|
|000036f0| 20 c1 41 24 2c 61 25 2c | 31 29 3d bd 28 97 c1 41 | .A$,a%,|1)=.(..A|
|00003700| 24 2c 61 25 2c 31 29 2d | 26 32 30 29 0d 10 ea 05 |$,a%,1)-|&20)....|
|00003710| ed 0d 10 f4 07 3d 41 24 | 0d 10 fe 04 0d 11 08 14 |.....=A$|........|
|00003720| dd 20 a4 67 65 74 74 65 | 78 74 28 76 61 72 24 29 |. .gette|xt(var$)|
|00003730| 0d 11 12 08 ea 20 54 24 | 0d 11 1c 05 f5 0d 11 26 |..... T$|.......&|
|00003740| 0d 54 24 2b 3d bd 3f 70 | 74 25 0d 11 30 0a 70 74 |.T$+=.?p|t%..0.pt|
|00003750| 25 2b 3d 31 0d 11 3a 13 | fd a7 76 61 72 24 2c bd |%+=1..:.|..var$,.|
|00003760| 3f 70 74 25 29 3d 30 0d | 11 44 07 3d 54 24 0d 11 |?pt%)=0.|.D.=T$..|
|00003770| 4e 04 0d 11 58 0d dd 20 | a4 67 65 74 65 6f 6c 0d |N...X.. |.geteol.|
|00003780| 11 62 08 ea 20 54 24 0d | 11 6c 05 f5 0d 11 76 0d |.b.. T$.|.l....v.|
|00003790| 54 24 2b 3d bd 3f 70 74 | 25 0d 11 80 0a 70 74 25 |T$+=.?pt|%....pt%|
|000037a0| 2b 3d 31 0d 11 8a 0d fd | 20 70 74 25 3d 6c 6c 25 |+=1.....| pt%=ll%|
|000037b0| 0d 11 94 07 3d 54 24 0d | 11 9e 04 0d 11 a8 0f dd |....=T$.|........|
|000037c0| f2 74 6f 6b 65 6e 28 41 | 24 29 0d 11 b2 0b 41 25 |.token(A|$)....A%|
|000037d0| 3d 97 20 41 24 0d 11 bc | 0f 3f 6e 74 3d 97 c2 41 |=. A$...|.?nt=..A|
|000037e0| 24 2c 31 29 0d 11 c6 07 | d6 67 74 0d 11 d0 0b 4e |$,1)....|.gt....N|
|000037f0| 25 3d 21 74 73 74 0d 11 | da 17 c8 95 20 3f 4e 25 |%=!tst..|.... ?N%|
|00003800| 3c 26 37 46 20 80 20 3f | 4e 25 3e 33 31 0d 11 e4 |<&7F . ?|N%>31...|
|00003810| 0e ef 3f 4e 25 3a 4e 25 | 2b 3d 31 0d 11 ee 05 ce |..?N%:N%|+=1.....|
|00003820| 0d 11 f8 05 e1 0d 12 02 | 04 0d 12 0c 04 0d 12 16 |........|........|
|00003830| 0d dd f2 74 6f 6b 28 41 | 25 29 0d 12 20 07 d6 67 |...tok(A|%).. ..g|
|00003840| 74 0d 12 2a 0b 4e 25 3d | 21 74 73 74 0d 12 34 05 |t..*.N%=|!tst..4.|
|00003850| ce 0d 12 3e 05 e1 0d 12 | 48 04 0d 12 52 13 dd f2 |...>....|H...R...|
|00003860| 65 78 74 6f 6b 28 41 25 | 2c 3f 6e 74 29 0d 12 5c |extok(A%|,?nt)..\|
|00003870| 07 d6 67 74 0d 12 66 0b | 4e 25 3d 21 74 73 74 0d |..gt..f.|N%=!tst.|
|00003880| 12 70 17 c8 95 20 3f 4e | 25 3c 26 37 46 20 80 20 |.p... ?N|%<&7F . |
|00003890| 3f 4e 25 3e 33 31 0d 12 | 7a 0e ef 3f 4e 25 3a 4e |?N%>31..|z..?N%:N|
|000038a0| 25 2b 3d 31 0d 12 84 05 | ce 0d 12 8e 05 e1 0d 12 |%+=1....|........|
|000038b0| 98 04 0d 12 a2 04 0d 12 | ac 0a dd f2 6d 61 73 68 |........|....mash|
|000038c0| 0d 12 b6 15 6c 69 6e 65 | 6c 25 3d 31 3a 6c 69 6e |....line|l%=1:lin|
|000038d0| 65 68 25 3d 30 0d 12 c0 | 0f 6c 69 6e 65 62 61 73 |eh%=0...|.linebas|
|000038e0| 65 25 3d 30 0d 12 ca 18 | 6e 65 77 62 61 73 65 25 |e%=0....|newbase%|
|000038f0| 3d 68 65 61 70 70 74 72 | 25 2b 31 36 0d 12 d4 14 |=heapptr|%+16....|
|00003900| 6e 65 77 70 74 72 25 3d | 6e 65 77 62 61 73 65 25 |newptr%=|newbase%|
|00003910| 0d 12 de 04 0d 12 e8 0e | f2 73 74 61 72 74 6c 69 |........|.startli|
|00003920| 6e 65 0d 12 f2 54 f2 70 | 75 74 73 74 72 28 bd 26 |ne...T.p|utstr(.&|
|00003930| 46 34 2b 22 3e 22 2b 6f | 75 74 24 2b 22 20 73 71 |F4+">"+o|ut$+" sq|
|00003940| 75 69 73 68 65 64 20 62 | 79 20 4d 48 27 73 20 42 |uished b|y MH's B|
|00003950| 41 53 49 43 20 63 72 75 | 6e 63 68 65 72 20 22 2b |ASIC cru|ncher "+|
|00003960| 76 65 72 24 2b 22 20 4f | 6e 20 22 2b c1 91 24 2c |ver$+" O|n "+..$,|
|00003970| 35 2c 31 31 29 29 0d 12 | fc 4b f1 22 52 45 4d 3e |5,11))..|.K."REM>|
|00003980| 22 2b 6f 75 74 24 2b 22 | 20 73 71 75 69 73 68 65 |"+out$+"| squishe|
|00003990| 64 20 62 79 20 4d 48 27 | 73 20 42 41 53 49 43 20 |d by MH'|s BASIC |
|000039a0| 63 72 75 6e 63 68 65 72 | 20 22 2b 76 65 72 24 2b |cruncher| "+ver$+|
|000039b0| 22 20 4f 6e 20 22 2b c1 | 91 24 2c 35 2c 31 31 29 |" On "+.|.$,5,11)|
|000039c0| 3b 0d 13 06 0c 6c 69 6e | 65 6c 25 3d 32 0d 13 10 |;....lin|el%=2...|
|000039d0| 04 0d 13 1a 0e f2 73 74 | 61 72 74 6c 69 6e 65 0d |......st|artline.|
|000039e0| 13 24 0c 70 74 25 3d 62 | 75 66 25 0d 13 2e 0e 61 |.$.pt%=b|uf%....a|
|000039f0| 73 6d 66 6c 61 67 25 3d | 30 0d 13 38 11 c8 95 20 |smflag%=|0..8... |
|00003a00| 70 74 25 3f 31 3c 3e 26 | 46 46 0d 13 42 12 20 20 |pt%?1<>&|FF..B.  |
|00003a10| 6c 69 6e 65 68 25 3d 70 | 74 25 3f 31 0d 13 4c 12 |lineh%=p|t%?1..L.|
|00003a20| 20 20 6c 69 6e 65 6c 25 | 3d 70 74 25 3f 32 0d 13 |  linel%|=pt%?2..|
|00003a30| 56 14 20 20 6c 69 6e 65 | 6c 65 6e 25 3d 70 74 25 |V.  line|len%=pt%|
|00003a40| 3f 33 0d 13 60 16 20 20 | 6c 6c 25 3d 6c 69 6e 65 |?3..`.  |ll%=line|
|00003a50| 6c 65 6e 25 2b 70 74 25 | 0d 13 6a 0c 20 20 70 74 |len%+pt%|..j.  pt|
|00003a60| 25 2b 3d 34 0d 13 74 3b | 20 20 6c 61 73 74 77 61 |%+=4..t;|  lastwa|
|00003a70| 73 25 3d 30 20 3a f4 20 | 6c 61 73 74 20 76 61 72 |s%=0 :. |last var|
|00003a80| 20 77 61 73 20 61 73 6d | 20 2e 76 61 72 2c 20 73 | was asm| .var, s|
|00003a90| 6f 20 6e 65 78 74 20 69 | 73 20 73 74 6d 6e 74 0d |o next i|s stmnt.|
|00003aa0| 13 7e 12 20 20 71 75 6f | 74 65 66 6c 61 67 25 3d |.~.  quo|teflag%=|
|00003ab0| 30 0d 13 88 10 20 20 72 | 65 6d 66 6c 61 67 25 3d |0....  r|emflag%=|
|00003ac0| 30 0d 13 92 0d 20 20 77 | 68 61 74 25 3d 30 0d 13 |0....  w|hat%=0..|
|00003ad0| 9c 2a 20 20 64 69 6d 66 | 6c 61 67 25 3d 30 20 3a |.*  dimf|lag%=0 :|
|00003ae0| f4 20 54 4f 20 63 61 74 | 63 68 20 44 49 4d 20 6e |. TO cat|ch DIM n|
|00003af0| 20 31 30 30 20 65 74 63 | 0d 13 a6 0d 62 79 66 6c | 100 etc|....byfl|
|00003b00| 61 67 25 3d 30 0d 13 b0 | 11 73 74 61 72 74 73 74 |ag%=0...|.startst|
|00003b10| 6d 6e 74 25 3d b9 0d 13 | ba 0b 63 72 69 74 25 3d |mnt%=...|..crit%=|
|00003b20| 30 0d 13 c4 11 6e 65 77 | 73 72 63 6c 69 6e 65 25 |0....new|srcline%|
|00003b30| 3d 31 0d 13 ce 1b 20 20 | c8 95 20 70 74 25 3c 6c |=1....  |.. pt%<l|
|00003b40| 6c 25 20 80 20 77 68 61 | 74 25 3c 3e 38 0d 13 d8 |l% . wha|t%<>8...|
|00003b50| 0c 20 20 20 20 f2 67 65 | 74 0d 13 e2 12 20 20 20 |.    .ge|t....   |
|00003b60| 20 c8 8e 20 77 68 61 74 | 25 20 ca 0d 13 ec 4a f4 | .. what|% ....J.|
|00003b70| 20 20 20 20 20 57 48 45 | 4e 20 30 20 3a 20 43 4f |     WHE|N 0 : CO|
|00003b80| 4c 4f 55 52 31 3a 50 52 | 4f 43 74 6f 6b 65 6e 28 |LOUR1:PR|OCtoken(|
|00003b90| 67 6f 74 24 29 3a 43 4f | 4c 4f 55 52 37 3a 49 46 |got$):CO|LOUR7:IF|
|00003ba0| 20 67 6f 74 24 3d 43 48 | 52 24 26 46 34 3a 70 74 | got$=CH|R$&F4:pt|
|00003bb0| 25 3d 6c 6c 25 0d 13 f6 | 0e 20 20 20 20 20 c9 20 |%=ll%...|.     . |
|00003bc0| 30 20 3a 0d 14 00 17 20 | 20 20 20 20 20 20 20 20 |0 :.... |        |
|00003bd0| c8 8e 20 97 67 6f 74 24 | 20 ca 0d 14 0a 5d 20 20 |.. .got$| ....]  |
|00003be0| 20 20 20 20 20 20 20 c9 | 20 26 37 46 2c 26 43 39 |       .| &7F,&C9|
|00003bf0| 2c 26 43 42 2c 26 43 43 | 2c 26 43 44 2c 26 44 43 |,&CB,&CC|,&CD,&DC|
|00003c00| 2c 26 44 44 20 3a e7 20 | 6e 65 77 73 72 63 6c 69 |,&DD :. |newsrcli|
|00003c10| 6e 65 25 20 3a 20 e7 20 | 6e 65 77 70 74 72 25 2d |ne% : . |newptr%-|
|00003c20| 6c 69 6e 65 62 61 73 65 | 25 3c 3e 34 3a f2 73 74 |linebase|%<>4:.st|
|00003c30| 61 72 74 6c 69 6e 65 0d | 14 14 0e 20 20 20 20 20 |artline.|...     |
|00003c40| 20 20 20 20 cb 0d 14 1e | 0f 20 20 20 20 20 20 20 |    ....|.       |
|00003c50| 20 20 fb 31 0d 14 28 61 | 20 20 20 20 20 20 20 20 |  .1..(a|        |
|00003c60| 20 e7 20 67 6f 74 24 3d | bd 26 37 46 3a f1 22 4f | . got$=|.&7F:."O|
|00003c70| 54 48 45 52 57 49 53 45 | 22 3b 3a f2 70 75 74 73 |THERWISE|";:.puts|
|00003c80| 74 72 28 bd 26 37 46 29 | 20 8b 20 e7 20 67 6f 74 |tr(.&7F)| . . got|
|00003c90| 24 3c 3e bd 26 46 34 3a | f2 74 6f 6b 65 6e 28 67 |$<>.&F4:|.token(g|
|00003ca0| 6f 74 24 29 3a fb 37 3a | f2 70 75 74 73 74 72 28 |ot$):.7:|.putstr(|
|00003cb0| 67 6f 74 24 29 0d 14 32 | 20 20 20 20 20 20 20 20 |got$)..2|        |
|00003cc0| 20 20 e7 20 67 6f 74 24 | 3d bd 26 46 34 3a 70 74 |  . got$|=.&F4:pt|
|00003cd0| 25 3d 6c 6c 25 0d 14 3c | 17 20 20 20 20 20 20 20 |%=ll%..<|.       |
|00003ce0| 20 20 c8 8e 20 97 67 6f | 74 24 20 ca 0d 14 46 4c |  .. .go|t$ ...FL|
|00003cf0| 20 20 20 20 20 20 20 20 | 20 c9 20 26 45 37 2c 26 |        | . &E7,&|
|00003d00| 45 46 2c 26 44 43 2c 26 | 43 41 2c 26 43 42 2c 26 |EF,&DC,&|CA,&CB,&|
|00003d10| 43 44 2c 26 44 37 2c 26 | 45 31 2c 26 46 37 2c 26 |CD,&D7,&|E1,&F7,&|
|00003d20| 46 39 2c 26 46 41 2c 26 | 45 45 2c 26 45 30 20 3a |F9,&FA,&|EE,&E0 :|
|00003d30| 20 63 72 69 74 25 3d 31 | 0d 14 50 0e 20 20 20 20 | crit%=1|..P.    |
|00003d40| 20 20 20 20 20 cb 0d 14 | 5a 0f 20 20 20 20 20 20 |     ...|Z.      |
|00003d50| 20 20 20 fb 37 0d 14 64 | 2d 20 20 20 20 20 c9 20 |   .7..d|-     . |
|00003d60| 31 20 3a 20 fb 33 3a f1 | a4 6e 65 77 76 61 72 28 |1 : .3:.|.newvar(|
|00003d70| 67 6f 74 24 2c 72 65 61 | 6c 70 74 72 25 29 3b 3a |got$,rea|lptr%);:|
|00003d80| fb 37 0d 14 6e 31 20 20 | 20 20 20 20 20 20 20 20 |.7..n1  |        |
|00003d90| 20 20 20 20 f2 70 75 74 | 73 74 72 28 a4 6e 65 77 |    .put|str(.new|
|00003da0| 76 61 72 28 67 6f 74 24 | 2c 72 65 61 6c 70 74 72 |var(got$|,realptr|
|00003db0| 25 29 29 0d 14 78 3f 20 | 20 20 20 20 20 20 20 20 |%))..x? |        |
|00003dc0| 20 20 20 20 20 e7 20 64 | 69 6d 66 6c 61 67 25 3d |     . d|imflag%=|
|00003dd0| 31 20 3a 20 f1 22 20 22 | 3b 3a 64 69 6d 66 6c 61 |1 : ." "|;:dimfla|
|00003de0| 67 25 3d 32 20 3a f2 70 | 75 74 73 74 72 28 22 20 |g%=2 :.p|utstr(" |
|00003df0| 22 29 0d 14 82 04 0d 14 | 8c 30 20 20 20 20 20 c9 |")......|.0     .|
|00003e00| 20 32 20 3a 20 fb 33 3a | f1 a4 6e 65 77 76 61 72 | 2 : .3:|..newvar|
|00003e10| 28 67 6f 74 24 2c 69 6e | 74 70 74 72 25 29 3b 22 |(got$,in|tptr%);"|
|00003e20| 25 22 3b 3a fb 37 0d 14 | 96 34 20 20 20 20 20 20 |%";:.7..|.4      |
|00003e30| 20 20 20 20 20 20 20 20 | f2 70 75 74 73 74 72 28 |        |.putstr(|
|00003e40| a4 6e 65 77 76 61 72 28 | 67 6f 74 24 2c 69 6e 74 |.newvar(|got$,int|
|00003e50| 70 74 72 25 29 2b 22 25 | 22 29 0d 14 a0 4c 20 20 |ptr%)+"%|")...L  |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 e7 20 64 69 |        |    . di|
|00003e70| 6d 66 6c 61 67 25 3d 31 | 20 e7 20 70 74 25 3f 31 |mflag%=1| . pt%?1|
|00003e80| 3c 3e 97 22 21 22 3a 20 | f1 22 20 22 3b 20 3a 64 |<>."!": |." "; :d|
|00003e90| 69 6d 66 6c 61 67 25 3d | 32 3a f2 70 75 74 73 74 |imflag%=|2:.putst|
|00003ea0| 72 28 22 20 22 29 0d 14 | aa 04 0d 14 b4 33 20 20 |r(" ")..|.....3  |
|00003eb0| 20 20 20 c9 20 33 20 3a | 20 fb 33 3a f1 a4 6e 65 |   . 3 :| .3:..ne|
|00003ec0| 77 76 61 72 28 67 6f 74 | 24 2c 73 74 72 69 6e 67 |wvar(got|$,string|
|00003ed0| 70 74 72 25 29 3b 22 24 | 22 3b 3a fb 37 0d 14 be |ptr%);"$|";:.7...|
|00003ee0| 37 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |7       |       .|
|00003ef0| 70 75 74 73 74 72 28 a4 | 6e 65 77 76 61 72 28 67 |putstr(.|newvar(g|
|00003f00| 6f 74 24 2c 73 74 72 69 | 6e 67 70 74 72 25 29 2b |ot$,stri|ngptr%)+|
|00003f10| 22 24 22 29 0d 14 c8 04 | 0d 14 d2 32 20 20 20 20 |"$")....|...2    |
|00003f20| 20 c9 20 34 20 3a 20 fb | 33 3a f1 a4 6e 65 77 76 | . 4 : .|3:..newv|
|00003f30| 61 72 28 67 6f 74 24 2c | 72 65 61 6c 61 70 74 72 |ar(got$,|realaptr|
|00003f40| 25 29 3b 22 28 22 3b 3a | fb 37 0d 14 dc 36 20 20 |%);"(";:|.7...6  |
|00003f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 70 75 74 |        |    .put|
|00003f60| 73 74 72 28 a4 6e 65 77 | 76 61 72 28 67 6f 74 24 |str(.new|var(got$|
|00003f70| 2c 72 65 61 6c 61 70 74 | 72 25 29 2b 22 28 22 29 |,realapt|r%)+"(")|
|00003f80| 0d 14 e6 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |...)    |        |
|00003f90| 20 20 e7 20 64 69 6d 66 | 6c 61 67 25 3d 31 3a 64 |  . dimf|lag%=1:d|
|00003fa0| 69 6d 66 6c 61 67 25 3d | 32 0d 14 f0 04 0d 14 fa |imflag%=|2.......|
|00003fb0| 33 20 20 20 20 20 c9 20 | 31 32 20 3a 20 fb 33 3a |3     . |12 : .3:|
|00003fc0| f1 a4 6e 65 77 76 61 72 | 28 67 6f 74 24 2c 69 6e |..newvar|(got$,in|
|00003fd0| 74 61 70 74 72 25 29 3b | 22 25 28 22 3b 3a fb 37 |taptr%);|"%(";:.7|
|00003fe0| 0d 15 04 37 20 20 20 20 | 20 20 20 20 20 20 20 20 |...7    |        |
|00003ff0| 20 20 20 f2 70 75 74 73 | 74 72 28 a4 6e 65 77 76 |   .puts|tr(.newv|
|00004000| 61 72 28 67 6f 74 24 2c | 69 6e 74 61 70 74 72 25 |ar(got$,|intaptr%|
|00004010| 29 2b 22 25 28 22 29 0d | 15 0e 2a 20 20 20 20 20 |)+"%(").|..*     |
|00004020| 20 20 20 20 20 20 20 20 | 20 20 e7 20 64 69 6d 66 |        |  . dimf|
|00004030| 6c 61 67 25 3d 31 3a 64 | 69 6d 66 6c 61 67 25 3d |lag%=1:d|imflag%=|
|00004040| 32 0d 15 18 04 0d 15 22 | 36 20 20 20 20 20 c9 20 |2......"|6     . |
|00004050| 31 33 20 3a 20 fb 33 3a | f1 a4 6e 65 77 76 61 72 |13 : .3:|..newvar|
|00004060| 28 67 6f 74 24 2c 73 74 | 72 69 6e 67 61 70 74 72 |(got$,st|ringaptr|
|00004070| 25 29 3b 22 24 28 22 3b | 3a fb 37 0d 15 2c 3a 20 |%);"$(";|:.7..,: |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 70 |        |      .p|
|00004090| 75 74 73 74 72 28 a4 6e | 65 77 76 61 72 28 67 6f |utstr(.n|ewvar(go|
|000040a0| 74 24 2c 73 74 72 69 6e | 67 61 70 74 72 25 29 2b |t$,strin|gaptr%)+|
|000040b0| 22 24 28 22 29 0d 15 36 | 2a 20 20 20 20 20 20 20 |"$(")..6|*       |
|000040c0| 20 20 20 20 20 20 20 20 | e7 20 64 69 6d 66 6c 61 |        |. dimfla|
|000040d0| 67 25 3d 31 3a 64 69 6d | 66 6c 61 67 25 3d 32 0d |g%=1:dim|flag%=2.|
|000040e0| 15 40 04 0d 15 4a 39 20 | 20 20 20 20 c9 20 35 20 |.@...J9 |    . 5 |
|000040f0| 3a 20 fb 31 3a f1 22 50 | 52 4f 43 22 3b 3a fb 33 |: .1:."P|ROC";:.3|
|00004100| 3a f1 a4 6e 65 77 76 61 | 72 28 67 6f 74 24 2c 70 |:..newva|r(got$,p|
|00004110| 72 6f 63 70 74 72 25 29 | 3b 3a fb 37 0d 15 54 36 |rocptr%)|;:.7..T6|
|00004120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 70 |        |      .p|
|00004130| 75 74 73 74 72 28 bd 26 | 46 32 2b a4 6e 65 77 76 |utstr(.&|F2+.newv|
|00004140| 61 72 28 67 6f 74 24 2c | 70 72 6f 63 70 74 72 25 |ar(got$,|procptr%|
|00004150| 29 29 0d 15 5e 04 0d 15 | 68 35 20 20 20 20 20 c9 |))..^...|h5     .|
|00004160| 20 36 20 3a 20 fb 31 3a | f1 22 46 4e 22 3b 3a fb | 6 : .1:|."FN";:.|
|00004170| 33 3a f1 a4 6e 65 77 76 | 61 72 28 67 6f 74 24 2c |3:..newv|ar(got$,|
|00004180| 66 6e 70 74 72 25 29 3b | 3a fb 37 0d 15 72 34 20 |fnptr%);|:.7..r4 |
|00004190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 70 75 |        |     .pu|
|000041a0| 74 73 74 72 28 bd 26 41 | 34 2b a4 6e 65 77 76 61 |tstr(.&A|4+.newva|
|000041b0| 72 28 67 6f 74 24 2c 66 | 6e 70 74 72 25 29 29 0d |r(got$,f|nptr%)).|
|000041c0| 15 7c 04 0d 15 86 25 20 | 20 20 20 20 c9 20 37 20 |.|....% |    . 7 |
|000041d0| 3a 20 fb 36 3a f1 a4 6e | 75 6d 28 67 6f 74 2c 67 |: .6:..n|um(got,g|
|000041e0| 6f 74 24 29 3b 3a fb 37 | 0d 15 90 29 20 20 20 20 |ot$);:.7|...)    |
|000041f0| 20 20 20 20 20 20 20 20 | 20 20 f2 70 75 74 73 74 |        |  .putst|
|00004200| 72 28 a4 6e 75 6d 28 67 | 6f 74 2c 67 6f 74 24 29 |r(.num(g|ot,got$)|
|00004210| 29 0d 15 9a 04 0d 15 a4 | 16 20 20 20 20 20 c9 20 |).......|.     . |
|00004220| 31 30 20 3a 20 f1 67 6f | 74 24 3b 0d 15 ae 46 20 |10 : .go|t$;...F |
|00004230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 e7 20 |        |      . |
|00004240| 61 73 6d 66 6c 61 67 25 | 3a e7 20 67 6f 74 24 3d |asmflag%|:. got$=|
|00004250| 22 3a 22 3a c8 95 20 6e | 65 77 70 74 72 25 3f 2d |":":.. n|ewptr%?-|
|00004260| 31 3d 33 32 3a 6e 65 77 | 70 74 72 25 2d 3d 31 3a |1=32:new|ptr%-=1:|
|00004270| ce 0d 15 b8 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00004280| 20 20 20 20 f2 70 75 74 | 73 74 72 28 67 6f 74 24 |    .put|str(got$|
|00004290| 29 0d 15 c2 35 20 20 20 | 20 20 20 20 20 20 20 20 |)...5   |        |
|000042a0| 20 20 20 20 e7 20 67 6f | 74 24 3d 22 22 22 22 20 |    . go|t$="""" |
|000042b0| 71 75 6f 74 65 66 6c 61 | 67 25 3d ac 71 75 6f 74 |quotefla|g%=.quot|
|000042c0| 65 66 6c 61 67 25 0d 15 | cc 04 0d 15 d6 0f 20 20 |eflag%..|......  |
|000042d0| 20 20 20 c9 20 31 31 20 | 3a 0d 15 e0 3c 20 20 20 |   . 11 |:...<   |
|000042e0| 20 20 20 20 e7 20 6e 65 | 77 73 72 63 6c 69 6e 65 |    . ne|wsrcline|
|000042f0| 25 20 3a 20 e7 20 6e 65 | 77 70 74 72 25 2d 6c 69 |% : . ne|wptr%-li|
|00004300| 6e 65 62 61 73 65 25 3c | 3e 34 3a f2 73 74 61 72 |nebase%<|>4:.star|
|00004310| 74 6c 69 6e 65 0d 15 ea | 45 20 20 20 20 20 20 20 |tline...|E       |
|00004320| e7 20 c0 67 6f 74 24 2c | 31 29 3e bd 26 37 45 20 |. .got$,|1)>.&7E |
|00004330| 3a fb 31 3a f2 74 6f 6b | 65 6e 28 c0 67 6f 74 24 |:.1:.tok|en(.got$|
|00004340| 2c 31 29 29 3a fb 37 3a | f1 c2 67 6f 74 24 2c a9 |,1)):.7:|..got$,.|
|00004350| 28 67 6f 74 24 29 2d 31 | 29 3b 0d 15 f4 20 20 20 |(got$)-1|);...   |
|00004360| 20 20 20 20 20 f2 70 75 | 74 73 74 72 28 67 6f 74 |     .pu|tstr(got|
|00004370| 24 29 3a 63 72 69 74 25 | 3d 31 0d 15 fe 11 20 20 |$):crit%|=1....  |
|00004380| 20 20 20 20 20 f1 67 6f | 74 24 3b 0d 16 08 0a 20 |     .go|t$;.... |
|00004390| 20 20 20 20 cb 0d 16 12 | 16 20 20 20 20 20 73 74 |    ....|.     st|
|000043a0| 61 72 74 73 74 6d 6e 74 | 25 3d 30 0d 16 1c 19 20 |artstmnt|%=0.... |
|000043b0| 20 20 20 20 e7 20 71 75 | 6f 74 65 66 6c 61 67 25 |    . qu|oteflag%|
|000043c0| 3d 30 20 8c 0d 16 26 49 | 20 20 20 20 20 20 20 e7 |=0 ...&I|       .|
|000043d0| 20 77 68 61 74 25 3d 30 | 20 3a 20 e7 20 67 6f 74 | what%=0| : . got|
|000043e0| 24 3d bd 26 44 46 20 84 | 20 67 6f 74 24 3d bd 26 |$=.&DF .| got$=.&|
|000043f0| 45 43 20 84 20 67 6f 74 | 24 3d bd 26 43 38 2b bd |EC . got|$=.&C8+.|
|00004400| 26 39 32 3a 62 79 66 6c | 61 67 25 3d 31 0d 16 30 |&92:byfl|ag%=1..0|
|00004410| 32 20 20 20 20 20 20 20 | e7 20 64 69 6d 66 6c 61 |2       |. dimfla|
|00004420| 67 25 3d 32 20 20 3a 20 | e7 20 67 6f 74 24 3d 22 |g%=2  : |. got$="|
|00004430| 2c 22 20 3a 20 64 69 6d | 66 6c 61 67 25 3d 31 0d |," : dim|flag%=1.|
|00004440| 16 3a 23 20 20 20 20 20 | 20 20 e7 20 67 6f 74 24 |.:#     |  . got$|
|00004450| 3d bd 26 44 45 20 3a 20 | 64 69 6d 66 6c 61 67 25 |=.&DE : |dimflag%|
|00004460| 3d 31 0d 16 44 3f 20 20 | 20 20 20 20 20 e7 20 67 |=1..D?  |     . g|
|00004470| 6f 74 24 3d 22 5b 22 20 | 61 73 6d 66 6c 61 67 25 |ot$="[" |asmflag%|
|00004480| 2b 3d 31 20 3a e7 20 61 | 73 6d 66 6c 61 67 25 3d |+=1 :. a|smflag%=|
|00004490| 31 20 3a 20 73 74 61 72 | 74 73 74 6d 6e 74 25 3d |1 : star|tstmnt%=|
|000044a0| b9 0d 16 4e 42 20 20 20 | 20 20 20 20 e7 20 67 6f |...NB   |    . go|
|000044b0| 74 24 3d 22 5d 22 20 61 | 73 6d 66 6c 61 67 25 2d |t$="]" a|smflag%-|
|000044c0| 3d 31 20 3a e7 20 61 73 | 6d 66 6c 61 67 25 3c 30 |=1 :. as|mflag%<0|
|000044d0| 20 20 3a 85 20 31 2c 22 | 54 6f 6f 20 6d 61 6e 79 |  :. 1,"|Too many|
|000044e0| 20 5d 22 0d 16 58 4e 20 | 20 20 20 20 20 20 e7 20 | ]"..XN |      . |
|000044f0| 67 6f 74 24 3d 22 3a 22 | 20 73 74 61 72 74 73 74 |got$=":"| startst|
|00004500| 6d 6e 74 25 3d b9 20 3a | 20 64 69 6d 66 6c 61 67 |mnt%=. :| dimflag|
|00004510| 25 3d 30 3a 62 79 66 6c | 61 67 25 3d 30 3a c8 95 |%=0:byfl|ag%=0:..|
|00004520| 20 3f 70 74 25 3d 33 32 | 3a 70 74 25 2b 3d 31 3a | ?pt%=32|:pt%+=1:|
|00004530| ce 0d 16 62 3b 20 20 20 | 20 20 20 20 e7 20 28 77 |...b;   |    . (w|
|00004540| 68 61 74 25 3d 31 20 84 | 20 77 68 61 74 25 3d 32 |hat%=1 .| what%=2|
|00004550| 29 20 80 20 6c 61 73 74 | 77 61 73 25 20 3a 20 73 |) . last|was% : s|
|00004560| 74 61 72 74 73 74 6d 6e | 74 25 3d 31 0d 16 6c 04 |tartstmn|t%=1..l.|
|00004570| 0d 16 76 1c 20 20 20 20 | 20 20 20 6c 61 73 74 77 |..v.    |   lastw|
|00004580| 61 73 25 3d 67 6f 74 24 | 3d 22 2e 22 0d 16 80 0c |as%=got$|="."....|
|00004590| 20 20 20 20 20 20 20 cd | 0d 16 8a 11 6e 65 77 73 |       .|....news|
|000045a0| 72 63 6c 69 6e 65 25 3d | 30 0d 16 94 07 20 20 ce |rcline%=|0....  .|
|000045b0| 0d 16 9e 04 0d 16 a8 1c | e7 20 6e 65 77 70 74 72 |........|. newptr|
|000045c0| 25 3c 3e 6c 69 6e 65 62 | 61 73 65 25 2b 34 20 8c |%<>lineb|ase%+4 .|
|000045d0| 0d 16 b2 3f 20 20 c8 95 | 20 28 6e 65 77 70 74 72 |...?  ..| (newptr|
|000045e0| 25 3f 2d 31 3d 33 32 29 | 20 80 20 28 6e 65 77 70 |%?-1=32)| . (newp|
|000045f0| 74 72 25 3c 3e 6c 69 6e | 65 62 61 73 65 25 2b 34 |tr%<>lin|ebase%+4|
|00004600| 29 3a 20 6e 65 77 70 74 | 72 25 2d 3d 31 3a ce 0d |): newpt|r%-=1:..|
|00004610| 16 bc 33 20 20 e7 20 63 | 72 69 74 25 3d 30 20 80 |..3  . c|rit%=0 .|
|00004620| 20 28 6e 65 77 70 74 72 | 25 2d 6c 69 6e 65 62 61 | (newptr|%-lineba|
|00004630| 73 65 25 2b 70 74 25 3f | 33 29 20 3c 20 32 35 30 |se%+pt%?|3) < 250|
|00004640| 20 8c 0d 16 c6 2f 20 20 | 20 20 e7 20 bd 28 6e 65 | ..../  |  . .(ne|
|00004650| 77 70 74 72 25 3f 2d 31 | 29 3c 3e 22 3a 22 3a f1 |wptr%?-1|)<>":":.|
|00004660| 22 3a 22 3b 3a f2 70 75 | 74 73 74 72 28 22 3a 22 |":";:.pu|tstr(":"|
|00004670| 29 0d 16 d0 12 20 20 cc | 20 f2 73 74 61 72 74 6c |)....  .| .startl|
|00004680| 69 6e 65 0d 16 da 07 20 | 20 cd 0d 16 e4 04 0d 16 |ine.... | .......|
|00004690| ee 05 cd 0d 16 f8 04 0d | 17 02 04 0d 17 0c 05 ce |........|........|
|000046a0| 0d 17 16 27 e7 20 6e 65 | 77 70 74 72 25 2d 6c 69 |...'. ne|wptr%-li|
|000046b0| 6e 65 62 61 73 65 25 3c | 3e 34 20 3a 20 f2 73 74 |nebase%<|>4 : .st|
|000046c0| 61 72 74 6c 69 6e 65 0d | 17 20 44 6c 69 6e 65 62 |artline.|. Dlineb|
|000046d0| 61 73 65 25 3f 31 3d 26 | 46 46 20 3a 20 c8 99 22 |ase%?1=&|FF : .."|
|000046e0| 4f 53 5f 46 69 6c 65 22 | 2c 31 30 2c 6f 75 74 24 |OS_File"|,10,out$|
|000046f0| 2c 26 46 46 42 2c 2c 6e | 65 77 62 61 73 65 25 2c |,&FFB,,n|ewbase%,|
|00004700| 6c 69 6e 65 62 61 73 65 | 25 2b 32 0d 17 2a 04 0d |linebase|%+2..*..|
|00004710| 17 34 05 e1 0d 17 3e 04 | 0d 17 48 04 0d 17 52 1c |.4....>.|..H...R.|
|00004720| dd 20 a4 6e 65 77 76 61 | 72 28 24 73 65 61 72 63 |. .newva|r($searc|
|00004730| 68 62 75 66 2c 41 25 29 | 0d 17 5c 0b d6 73 65 61 |hbuf,A%)|..\..sea|
|00004740| 72 63 68 0d 17 66 1d 3d | 24 28 21 66 61 64 72 2b |rch..f.=|$(!fadr+|
|00004750| 36 2b a9 28 24 28 21 66 | 61 64 72 2b 35 29 29 29 |6+.($(!f|adr+5)))|
|00004760| 0d 17 70 04 0d 17 7a 04 | 0d 17 84 1f f4 20 61 6c |..p...z.|..... al|
|00004770| 6c 6f 63 61 74 65 20 6d | 65 6d 6f 72 79 20 66 72 |locate m|emory fr|
|00004780| 6f 6d 20 68 65 61 70 0d | 17 8e 13 dd 20 a4 61 6c |om heap.|.... .al|
|00004790| 6c 6f 63 61 74 65 28 73 | 25 29 0d 17 98 1a e7 20 |locate(s|%)..... |
|000047a0| 73 25 80 33 20 73 25 3d | 28 73 25 80 20 ac 20 33 |s%.3 s%=|(s%. . 3|
|000047b0| 29 20 2b 34 0d 17 a2 10 | 68 65 61 70 70 74 72 25 |) +4....|heapptr%|
|000047c0| 2b 3d 73 25 0d 17 ac 29 | e7 20 68 65 61 70 70 74 |+=s%...)|. heappt|
|000047d0| 72 25 3e 68 65 61 70 65 | 6e 64 25 20 85 20 31 2c |r%>heape|nd% . 1,|
|000047e0| 22 48 65 61 70 20 62 75 | 72 73 74 21 22 0d 17 b6 |"Heap bu|rst!"...|
|000047f0| 10 3d 68 65 61 70 70 74 | 72 25 2d 73 25 0d 17 c0 |.=heappt|r%-s%...|
|00004800| 04 0d 17 ca 1a dd a4 73 | 74 6f 72 65 28 24 73 65 |.......s|tore($se|
|00004810| 61 72 63 68 62 75 66 2c | 41 25 29 0d 17 d4 0b d6 |archbuf,|A%).....|
|00004820| 73 65 61 72 63 68 0d 17 | de 11 6f 6c 64 6e 6f 64 |search..|..oldnod|
|00004830| 65 25 3d 21 61 64 72 0d | 17 e8 14 e7 6f 6c 64 6e |e%=!adr.|....oldn|
|00004840| 6f 64 65 25 20 3d 31 20 | 3a 3d 30 0d 17 f2 41 6e |ode% =1 |:=0...An|
|00004850| 65 77 6e 6f 64 65 25 3d | a4 61 6c 6c 6f 63 61 74 |ewnode%=|.allocat|
|00004860| 65 28 a9 28 24 73 65 61 | 72 63 68 62 75 66 29 2b |e(.($sea|rchbuf)+|
|00004870| 64 65 66 61 75 6c 74 61 | 6c 6c 6f 63 25 2b 37 29 |defaulta|lloc%+7)|
|00004880| 20 3a f4 20 2b 31 2b 31 | 2b 31 2b 34 0d 17 fc 16 | :. +1+1|+1+4....|
|00004890| 21 6f 6c 64 6e 6f 64 65 | 25 3d 6e 65 77 6e 6f 64 |!oldnode|%=newnod|
|000048a0| 65 25 0d 18 06 0f 21 6e | 65 77 6e 6f 64 65 25 3d |e%....!n|ewnode%=|
|000048b0| 30 0d 18 10 10 6e 65 77 | 6e 6f 64 65 25 3f 34 3d |0....new|node%?4=|
|000048c0| 31 0d 18 1a 1c 24 28 6e | 65 77 6e 6f 64 65 25 2b |1....$(n|ewnode%+|
|000048d0| 35 29 3d 24 73 65 61 72 | 63 68 62 75 66 0d 18 24 |5)=$sear|chbuf..$|
|000048e0| 20 3f 28 6e 65 77 6e 6f | 64 65 25 2b 36 2b a9 24 | ?(newno|de%+6+.$|
|000048f0| 73 65 61 72 63 68 62 75 | 66 29 3d 31 33 0d 18 2e |searchbu|f)=13...|
|00004900| 06 3d 31 0d 18 38 04 0d | 18 42 0c dd 20 a4 64 75 |.=1..8..|.B.. .du|
|00004910| 6d 6d 79 0d 18 4c 1e 6e | 65 77 6e 6f 64 65 25 3d |mmy..L.n|ewnode%=|
|00004920| a4 61 6c 6c 6f 63 61 74 | 65 28 31 36 2b 31 32 38 |.allocat|e(16+128|
|00004930| 29 0d 18 56 2b e3 41 25 | 3d 6e 65 77 6e 6f 64 65 |)..V+.A%|=newnode|
|00004940| 25 2b 38 20 b8 20 6e 65 | 77 6e 6f 64 65 25 2b 31 |%+8 . ne|wnode%+1|
|00004950| 32 38 2b 38 3a 3f 41 25 | 3d 30 3a ed 0d 18 60 23 |28+8:?A%|=0:...`#|
|00004960| 6e 65 77 6e 6f 64 65 25 | 3f 38 3d 26 46 46 20 3a |newnode%|?8=&FF :|
|00004970| f4 20 64 6f 6e 27 74 20 | 61 6c 6c 6f 77 20 40 0d |. don't |allow @.|
|00004980| 18 6a 0f 21 6e 65 77 6e | 6f 64 65 25 3d 30 0d 18 |.j.!newn|ode%=0..|
|00004990| 74 10 6e 65 77 6e 6f 64 | 65 25 3f 34 3d 30 0d 18 |t.newnod|e%?4=0..|
|000049a0| 7e 1e 24 28 6e 65 77 6e | 6f 64 65 25 2b 35 29 3d |~.$(newn|ode%+5)=|
|000049b0| 22 2a 2a 22 2b bd 31 33 | 2b bd 31 33 0d 18 88 04 |"**"+.13|+.13....|
|000049c0| 0d 18 92 0d 3d 6e 65 77 | 6e 6f 64 65 25 0d 18 9c |....=new|node%...|
|000049d0| 04 0d 18 a6 15 dd f2 73 | 68 6f 77 6c 69 73 74 28 |.......s|howlist(|
|000049e0| 62 61 73 65 25 29 0d 18 | b0 08 40 25 3d 38 0d 18 |base%)..|..@%=8..|
|000049f0| ba 04 0d 18 c4 05 f5 0d | 18 ce 5a f1 22 4e 45 58 |........|..Z."NEX|
|00004a00| 54 20 3d 20 22 7e 21 62 | 61 73 65 25 22 20 43 79 |T = "~!b|ase%" Cy|
|00004a10| 63 20 3d 20 22 62 61 73 | 65 25 3f 34 22 20 20 4f |c = "bas|e%?4"  O|
|00004a20| 6c 64 20 3d 20 22 24 28 | 62 61 73 65 25 2b 35 29 |ld = "$(|base%+5)|
|00004a30| 22 20 4e 65 77 20 3d 20 | 22 24 28 a9 28 24 28 62 |" New = |"$(.($(b|
|00004a40| 61 73 65 25 2b 35 29 29 | 2b 36 2b 62 61 73 65 25 |ase%+5))|+6+base%|
|00004a50| 29 0d 18 d8 04 0d 18 e2 | 0d 62 25 3d 21 62 61 73 |).......|.b%=!bas|
|00004a60| 65 25 0d 18 ec 1b e7 20 | 21 62 61 73 65 25 20 3a |e%..... |!base% :|
|00004a70| 20 62 61 73 65 25 3d 21 | 62 61 73 65 25 0d 18 f6 | base%=!|base%...|
|00004a80| 09 fd 62 25 3d 30 0d 19 | 00 05 e1 0d 19 0a 04 0d |..b%=0..|........|
|00004a90| 19 14 04 0d 19 1e 21 dd | f2 77 61 72 6e 73 69 6e |......!.|.warnsin|
|00004aa0| 67 6c 65 28 70 74 72 25 | 2c 70 72 65 24 2c 70 6f |gle(ptr%|,pre$,po|
|00004ab0| 73 74 24 29 0d 19 28 09 | ea 65 6f 64 25 0d 19 32 |st$)..(.|.eod%..2|
|00004ac0| 05 f5 0d 19 3c 12 65 6f | 64 25 3d 28 21 70 74 72 |....<.eo|d%=(!ptr|
|00004ad0| 25 3d 30 29 0d 19 46 34 | e7 20 70 74 72 25 3f 34 |%=0)..F4|. ptr%?4|
|00004ae0| 3d 31 3a f1 70 72 65 24 | 3b 24 28 70 74 72 25 2b |=1:.pre$|;$(ptr%+|
|00004af0| 35 29 3b 70 6f 73 74 24 | 3b 3a c8 95 20 b1 20 83 |5);post$|;:.. . .|
|00004b00| 31 36 3a ef 33 32 3a ce | 0d 19 50 0e 70 74 72 25 |16:.32:.|..P.ptr%|
|00004b10| 3d 21 70 74 72 25 0d 19 | 5a 09 fd 65 6f 64 25 0d |=!ptr%..|Z..eod%.|
|00004b20| 19 64 05 e1 0d 19 6e 04 | 0d 19 78 04 0d 19 82 34 |.d....n.|..x....4|
|00004b30| dd f2 61 6c 6f 63 73 69 | 6e 67 6c 65 28 70 74 72 |..alocsi|ngle(ptr|
|00004b40| 25 29 20 3a f4 20 61 6c | 6c 6f 63 61 74 65 20 73 |%) :. al|locate s|
|00004b50| 69 6e 67 6c 65 20 63 68 | 61 72 20 6e 61 6d 65 73 |ingle ch|ar names|
|00004b60| 0d 19 8c 27 ea 62 61 73 | 65 25 2c 65 6f 64 25 2c |...'.bas|e%,eod%,|
|00004b70| 6d 6f 73 74 25 2c 6d 6f | 73 74 70 74 72 25 2c 6e |most%,mo|stptr%,n|
|00004b80| 78 74 61 6c 6f 63 25 0d | 19 96 0e 62 61 73 65 25 |xtaloc%.|...base%|
|00004b90| 3d 70 74 72 25 0d 19 a0 | 05 f5 0d 19 aa 14 20 20 |=ptr%...|......  |
|00004ba0| 65 6f 64 25 3d 28 21 70 | 74 72 25 3d 30 29 0d 19 |eod%=(!p|tr%=0)..|
|00004bb0| b4 12 20 20 76 24 3d 24 | 28 70 74 72 25 2b 35 29 |..  v$=$|(ptr%+5)|
|00004bc0| 0d 19 be 0f 20 20 e7 20 | a9 76 24 3d 31 20 8c 0d |....  . |.v$=1 ..|
|00004bd0| 19 c8 1a 20 20 20 20 24 | 28 70 74 72 25 2b 35 2b |...    $|(ptr%+5+|
|00004be0| a9 76 24 2b 31 29 3d 76 | 24 0d 19 d2 36 20 20 20 |.v$+1)=v|$...6   |
|00004bf0| 20 3f 28 62 61 73 65 25 | 2b 38 2b a7 76 61 72 24 | ?(base%|+8+.var$|
|00004c00| 2c 76 24 29 29 3d 26 46 | 46 20 3a 20 f4 20 6d 61 |,v$))=&F|F : . ma|
|00004c10| 72 6b 20 61 73 20 61 6c | 6c 6f 63 61 74 65 64 0d |rk as al|located.|
|00004c20| 19 dc 27 20 20 20 20 70 | 74 72 25 3f 34 3d 30 20 |..'    p|tr%?4=0 |
|00004c30| 3a f4 20 66 72 65 71 3d | 30 20 69 66 20 61 6c 6c |:. freq=|0 if all|
|00004c40| 6f 63 61 74 65 64 0d 19 | e6 10 20 20 20 20 f1 76 |ocated..|..    .v|
|00004c50| 24 3b 22 20 22 3b 0d 19 | f0 07 20 20 cd 0d 19 fa |$;" ";..|..  ....|
|00004c60| 10 20 20 70 74 72 25 3d | 21 70 74 72 25 0d 1a 04 |.  ptr%=|!ptr%...|
|00004c70| 04 0d 1a 0e 0b 20 20 fd | 65 6f 64 25 0d 1a 18 10 |.....  .|eod%....|
|00004c80| e7 20 b1 20 3a 20 f1 22 | 2c 20 22 3b 0d 1a 22 04 |. . : ."|, ";..".|
|00004c90| 0d 1a 2c 0e 70 74 72 25 | 3d 62 61 73 65 25 0d 1a |..,.ptr%|=base%..|
|00004ca0| 36 31 6e 78 74 61 6c 6f | 63 25 3d 32 20 3a 20 f4 |61nxtalo|c%=2 : .|
|00004cb0| 20 6e 65 78 74 20 76 61 | 72 20 69 6e 20 73 74 72 | next va|r in str|
|00004cc0| 69 6e 67 20 74 6f 20 61 | 6c 6c 6f 63 61 74 65 0d |ing to a|llocate.|
|00004cd0| 1a 40 04 0d 1a 4a 05 f5 | 0d 1a 54 1f 20 20 e7 20 |.@...J..|..T.  . |
|00004ce0| 3f 28 62 61 73 65 25 2b | 38 2b 6e 78 74 61 6c 6f |?(base%+|8+nxtalo|
|00004cf0| 63 25 29 3d 30 20 8c 0d | 1a 5e 12 20 20 20 20 70 |c%)=0 ..|.^.    p|
|00004d00| 74 72 25 3d 62 61 73 65 | 25 0d 1a 68 0f 20 20 20 |tr%=base|%..h.   |
|00004d10| 20 6d 6f 73 74 25 3d 30 | 0d 1a 72 09 20 20 20 20 | most%=0|..r.    |
|00004d20| f5 0d 1a 7c 18 20 20 20 | 20 20 20 65 6f 64 25 3d |...|.   |   eod%=|
|00004d30| 28 21 70 74 72 25 3d 30 | 29 0d 1a 86 36 20 20 20 |(!ptr%=0|)...6   |
|00004d40| 20 20 20 e7 20 70 74 72 | 25 3f 34 3e 6d 6f 73 74 |   . ptr|%?4>most|
|00004d50| 25 20 3a 20 6d 6f 73 74 | 25 3d 70 74 72 25 3f 34 |% : most|%=ptr%?4|
|00004d60| 3a 6d 6f 73 74 61 64 72 | 25 3d 70 74 72 25 3a 0d |:mostadr|%=ptr%:.|
|00004d70| 1a 90 14 20 20 20 20 20 | 20 70 74 72 25 3d 21 70 |...     | ptr%=!p|
|00004d80| 74 72 25 0d 1a 9a 0f 20 | 20 20 20 20 20 fd 65 6f |tr%.... |     .eo|
|00004d90| 64 25 0d 1a a4 6a 20 20 | 20 20 e7 20 6d 6f 73 74 |d%...j  |  . most|
|00004da0| 25 3c 3e 30 20 3a 24 28 | 6d 6f 73 74 61 64 72 25 |%<>0 :$(|mostadr%|
|00004db0| 2b 36 2b a9 28 24 28 6d | 6f 73 74 61 64 72 25 2b |+6+.($(m|ostadr%+|
|00004dc0| 35 29 29 29 3d c1 76 61 | 72 24 2c 6e 78 74 61 6c |5)))=.va|r$,nxtal|
|00004dd0| 6f 63 25 2c 31 29 3a 6d | 6f 73 74 61 64 72 25 3f |oc%,1):m|ostadr%?|
|00004de0| 34 3d 30 3a f1 c1 76 61 | 72 24 2c 6e 78 74 61 6c |4=0:..va|r$,nxtal|
|00004df0| 6f 63 25 2c 31 29 20 3b | 22 20 22 3b 0d 1a ae 0f |oc%,1) ;|" ";....|
|00004e00| 20 20 cc 20 6d 6f 73 74 | 25 3d 31 0d 1a b8 07 20 |  . most|%=1.... |
|00004e10| 20 cd 0d 1a c2 11 20 20 | 6e 78 74 61 6c 6f 63 25 | .....  |nxtaloc%|
|00004e20| 2b 3d 31 0d 1a cc 1f fd | 6e 78 74 61 6c 6f 63 25 |+=1.....|nxtaloc%|
|00004e30| 3d a9 76 61 72 24 2d 39 | 20 84 20 6d 6f 73 74 25 |=.var$-9| . most%|
|00004e40| 3d 30 0d 1a d6 09 e7 20 | b1 20 f1 0d 1a e0 04 0d |=0..... |. ......|
|00004e50| 1a ea 05 e1 0d 1a f4 04 | 0d 1a fe 17 dd f2 61 6c |........|......al|
|00004e60| 6f 63 64 6f 75 62 6c 65 | 28 62 61 73 65 25 29 0d |ocdouble|(base%).|
|00004e70| 1b 08 19 ea 20 70 74 72 | 25 2c 66 69 72 73 74 25 |.... ptr|%,first%|
|00004e80| 2c 73 65 63 6f 6e 64 25 | 0d 1b 12 0e 70 74 72 25 |,second%|....ptr%|
|00004e90| 3d 62 61 73 65 25 0d 1b | 1c 04 0d 1b 26 38 66 69 |=base%..|....&8fi|
|00004ea0| 72 73 74 25 3d 32 3a 73 | 65 63 6f 6e 64 25 3d 32 |rst%=2:s|econd%=2|
|00004eb0| 20 3a f4 20 70 6f 73 69 | 74 69 6f 6e 73 20 69 6e | :. posi|tions in|
|00004ec0| 20 76 61 72 24 20 74 6f | 20 61 6c 6f 63 20 66 72 | var$ to| aloc fr|
|00004ed0| 6f 6d 0d 1b 30 05 f5 0d | 1b 3a 14 20 20 65 6f 64 |om..0...|.:.  eod|
|00004ee0| 25 3d 28 21 70 74 72 25 | 3d 30 29 0d 1b 44 04 0d |%=(!ptr%|=0)..D..|
|00004ef0| 1b 4e 2e 20 20 e7 20 70 | 74 72 25 3f 34 20 8c 20 |.N.  . p|tr%?4 . |
|00004f00| 24 28 70 74 72 25 2b 36 | 2b a9 28 24 28 70 74 72 |$(ptr%+6|+.($(ptr|
|00004f10| 25 2b 35 29 29 29 3d a4 | 61 6c 6f 63 32 0d 1b 58 |%+5)))=.|aloc2..X|
|00004f20| 04 0d 1b 62 04 0d 1b 6c | 10 20 20 70 74 72 25 3d |...b...l|.  ptr%=|
|00004f30| 21 70 74 72 25 0d 1b 76 | 0b 20 20 fd 65 6f 64 25 |!ptr%..v|.  .eod%|
|00004f40| 0d 1b 80 04 0d 1b 8a 08 | e7 b1 3a f1 0d 1b 94 04 |........|..:.....|
|00004f50| 0d 1b 9e 05 e1 0d 1b a8 | 04 0d 1b b2 0c dd 20 a4 |........|...... .|
|00004f60| 61 6c 6f 63 32 0d 1b bc | 27 61 24 3d c1 76 61 72 |aloc2...|'a$=.var|
|00004f70| 24 2c 66 69 72 73 74 25 | 2c 31 29 2b c1 76 61 72 |$,first%|,1)+.var|
|00004f80| 24 2c 73 65 63 6f 6e 64 | 25 2c 31 29 0d 1b c6 37 |$,second|%,1)...7|
|00004f90| 66 69 72 73 74 25 2b 3d | 31 3a e7 20 c1 76 61 72 |first%+=|1:. .var|
|00004fa0| 24 2c 66 69 72 73 74 25 | 2c 31 29 3d 22 30 22 20 |$,first%|,1)="0" |
|00004fb0| 66 69 72 73 74 25 3d 32 | 3a 73 65 63 6f 6e 64 25 |first%=2|:second%|
|00004fc0| 2b 3d 31 0d 1b d0 26 e7 | 20 73 65 63 6f 6e 64 25 |+=1...&.| second%|
|00004fd0| 3e a9 76 61 72 24 20 85 | 20 31 2c 22 6f 75 74 20 |>.var$ .| 1,"out |
|00004fe0| 6f 66 20 76 61 72 73 21 | 22 0d 1b da 0c f1 61 24 |of vars!|".....a$|
|00004ff0| 3b 22 20 22 3b 0d 1b e4 | 07 3d 61 24 0d 1b ee 04 |;" ";...|.=a$....|
|00005000| 0d 1b f8 10 dd f2 70 75 | 74 73 74 72 28 41 24 29 |......pu|tstr(A$)|
|00005010| 0d 1c 02 0f 24 6e 65 77 | 70 74 72 25 3d 41 24 0d |....$new|ptr%=A$.|
|00005020| 1c 0c 10 6e 65 77 70 74 | 72 25 2b 3d a9 41 24 0d |...newpt|r%+=.A$.|
|00005030| 1c 16 39 e7 20 6e 65 77 | 70 74 72 25 3e 3d 68 65 |..9. new|ptr%>=he|
|00005040| 61 70 65 6e 64 25 20 85 | 20 31 2c 22 4f 75 74 20 |apend% .| 1,"Out |
|00005050| 6f 66 20 6d 65 6d 6f 72 | 79 20 66 6f 72 20 6e 65 |of memor|y for ne|
|00005060| 77 20 70 72 6f 67 21 22 | 0d 1c 20 05 e1 0d 1c 2a |w prog!"|.. ....*|
|00005070| 04 0d 1c 34 0f dd f2 73 | 74 61 72 74 6c 69 6e 65 |...4...s|tartline|
|00005080| 0d 1c 3e 1d 40 25 3d 35 | 3a f1 27 6c 69 6e 65 6c |..>.@%=5|:.'linel|
|00005090| 25 2b 32 35 36 2a 6c 69 | 6e 65 68 25 3b 0d 1c 48 |%+256*li|neh%;..H|
|000050a0| 70 e7 20 6c 69 6e 65 62 | 61 73 65 25 3a 20 c8 95 |p. lineb|ase%: ..|
|000050b0| 20 6e 65 77 70 74 72 25 | 3f 2d 31 3d 97 22 3a 22 | newptr%|?-1=.":"|
|000050c0| 3a 20 6e 65 77 70 74 72 | 25 2d 3d 31 3a ce 3a c8 |: newptr|%-=1:.:.|
|000050d0| 95 20 6e 65 77 70 74 72 | 25 3f 2d 31 3d 33 32 3a |. newptr|%?-1=32:|
|000050e0| 6e 65 77 70 74 72 25 2d | 3d 31 3a ce 3a c8 95 20 |newptr%-|=1:.:.. |
|000050f0| 6e 65 77 70 74 72 25 3f | 2d 31 3d 97 22 3a 22 3a |newptr%?|-1=.":":|
|00005100| 20 6e 65 77 70 74 72 25 | 2d 3d 31 3a ce 0d 1c 52 | newptr%|-=1:...R|
|00005110| 63 e7 20 6c 69 6e 65 62 | 61 73 65 25 20 3a 20 6c |c. lineb|ase% : l|
|00005120| 69 6e 65 62 61 73 65 25 | 3f 33 3d 6e 65 77 70 74 |inebase%|?3=newpt|
|00005130| 72 25 2d 6c 69 6e 65 62 | 61 73 65 25 20 3a 20 e7 |r%-lineb|ase% : .|
|00005140| 20 6e 65 77 70 74 72 25 | 2d 6c 69 6e 65 62 61 73 | newptr%|-linebas|
|00005150| 65 25 3e 32 35 32 20 85 | 20 31 2c 22 64 65 73 74 |e%>252 .| 1,"dest|
|00005160| 20 6c 69 6e 65 20 74 6f | 6f 20 6c 6f 6e 67 21 22 | line to|o long!"|
|00005170| 0d 1c 5c 04 0d 1c 66 15 | 6c 69 6e 65 62 61 73 65 |..\...f.|linebase|
|00005180| 25 3d 6e 65 77 70 74 72 | 25 0d 1c 70 10 3f 6e 65 |%=newptr|%..p.?ne|
|00005190| 77 70 74 72 25 3d 26 30 | 44 0d 1c 7a 14 6e 65 77 |wptr%=&0|D..z.new|
|000051a0| 70 74 72 25 3f 31 3d 6c | 69 6e 65 68 25 0d 1c 84 |ptr%?1=l|ineh%...|
|000051b0| 14 6e 65 77 70 74 72 25 | 3f 32 3d 6c 69 6e 65 6c |.newptr%|?2=linel|
|000051c0| 25 0d 1c 8e 36 6e 65 77 | 70 74 72 25 3f 33 3d 30 |%...6new|ptr%?3=0|
|000051d0| 20 3a f4 20 61 76 6f 69 | 64 20 70 72 6f 62 73 20 | :. avoi|d probs |
|000051e0| 77 69 74 68 20 73 70 61 | 63 65 20 62 61 63 6b 74 |with spa|ce backt|
|000051f0| 72 61 63 6b 69 6e 67 0d | 1c 98 0e 6e 65 77 70 74 |racking.|...newpt|
|00005200| 72 25 2b 3d 34 0d 1c a2 | 05 e1 0d 1c ac 04 0d 1c |r%+=4...|........|
|00005210| b6 2b dd 20 f2 5f 44 65 | 63 6f 64 65 45 6e 76 69 |.+. ._De|codeEnvi|
|00005220| 72 6f 6e 6d 65 6e 74 28 | 45 6e 76 24 2c f8 20 50 |ronment(|Env$,. P|
|00005230| 31 24 2c f8 20 50 32 24 | 29 0d 1c c0 0d ea 20 50 |1$,. P2$|)..... P|
|00005240| 54 24 2c 43 48 24 0d 1c | ca 16 44 65 6c 65 74 65 |T$,CH$..|..Delete|
|00005250| 52 65 6d 73 20 20 20 20 | 20 3d 20 b9 0d 1c d4 16 |Rems    | = .....|
|00005260| 44 65 6c 65 74 65 53 70 | 61 63 65 73 20 20 20 3d |DeleteSp|aces   =|
|00005270| 20 b9 0d 1c de 16 53 68 | 6f 72 74 56 61 72 69 61 | .....Sh|ortVaria|
|00005280| 62 6c 65 73 20 3d 20 b9 | 0d 1c e8 16 4e 6f 42 6c |bles = .|....NoBl|
|00005290| 61 6e 6b 4c 69 6e 65 73 | 20 20 20 3d 20 b9 0d 1c |ankLines|   = ...|
|000052a0| f2 28 49 6e 41 73 73 65 | 6d 62 6c 65 72 20 20 20 |.(InAsse|mbler   |
|000052b0| 20 3d 20 a3 20 3a 20 f4 | 20 55 6e 69 6d 70 6c 65 | = . : .| Unimple|
|000052c0| 6d 65 6e 74 65 64 0d 1c | fc 16 50 72 6f 63 65 64 |mented..|..Proced|
|000052d0| 75 72 65 73 20 20 20 20 | 20 3d 20 b9 0d 1d 06 28 |ures    | = ....(|
|000052e0| 53 57 49 73 20 20 20 20 | 20 20 20 20 20 20 20 3d |SWIs    |       =|
|000052f0| 20 a3 20 3a 20 f4 20 55 | 6e 69 6d 70 6c 65 6d 65 | . : . U|nimpleme|
|00005300| 6e 74 65 64 0d 1d 10 16 | 4c 69 73 74 69 6e 67 20 |nted....|Listing |
|00005310| 20 20 20 20 20 20 20 3d | 20 a3 0d 1d 1a 16 44 65 |       =| .....De|
|00005320| 6c 65 74 65 53 6f 75 72 | 63 65 20 20 20 3d 20 a3 |leteSour|ce   = .|
|00005330| 0d 1d 24 22 e7 20 a7 45 | 6e 76 24 2c 22 20 22 29 |..$". .E|nv$," ")|
|00005340| 3d 30 20 8c 20 f2 5f 53 | 79 6e 74 61 78 45 72 72 |=0 . ._S|yntaxErr|
|00005350| 6f 72 0d 1d 2e 5b e7 20 | c0 45 6e 76 24 2c 35 29 |or...[. |.Env$,5)|
|00005360| 3d 22 42 41 53 49 43 22 | 20 8c 20 45 6e 76 24 3d |="BASIC"| . Env$=|
|00005370| c1 45 6e 76 24 2c a7 45 | 6e 76 24 2c 22 22 22 22 |.Env$,.E|nv$,""""|
|00005380| 2c a7 45 6e 76 24 2c 22 | 22 22 22 29 2b 31 29 2b |,.Env$,"|""")+1)+|
|00005390| 32 29 20 8b 20 45 6e 76 | 24 3d c1 45 6e 76 24 2c |2) . Env|$=.Env$,|
|000053a0| a7 45 6e 76 24 2c 22 20 | 22 29 2b 31 29 0d 1d 38 |.Env$," |")+1)..8|
|000053b0| 1b 50 31 24 3d c0 45 6e | 76 24 2c a7 45 6e 76 24 |.P1$=.En|v$,.Env$|
|000053c0| 2c 22 20 22 29 2d 31 29 | 0d 1d 42 1b 50 32 24 3d |," ")-1)|..B.P2$=|
|000053d0| c1 45 6e 76 24 2c a7 45 | 6e 76 24 2c 22 20 22 29 |.Env$,.E|nv$," ")|
|000053e0| 2b 31 29 0d 1d 4c 36 e7 | 20 c0 50 31 24 2c 31 29 |+1)..L6.| .P1$,1)|
|000053f0| 3d 22 2d 22 20 80 20 28 | 97 28 c1 50 31 24 2c 32 |="-" . (|.(.P1$,2|
|00005400| 2c 31 29 29 80 26 44 46 | 29 3d 37 32 20 8c 20 f2 |,1)).&DF|)=72 . .|
|00005410| 5f 47 69 76 65 48 65 6c | 70 0d 1d 56 22 e7 20 a7 |_GiveHel|p..V". .|
|00005420| 45 6e 76 24 2c 22 20 22 | 29 3d 30 20 8c 20 f2 5f |Env$," "|)=0 . ._|
|00005430| 53 79 6e 74 61 78 45 72 | 72 6f 72 0d 1d 60 13 e7 |SyntaxEr|ror..`..|
|00005440| 20 a7 50 32 24 2c 22 20 | 22 29 3e 30 20 8c 0d 1d | .P2$," |")>0 ...|
|00005450| 6a 0d 20 20 20 50 54 24 | 3d 22 22 0d 1d 74 26 20 |j.   PT$|=""..t& |
|00005460| 20 20 e3 20 50 6f 69 6e | 74 65 72 25 3d a7 50 32 |  . Poin|ter%=.P2|
|00005470| 24 2c 22 20 22 29 2b 31 | 20 b8 20 a9 28 50 32 24 |$," ")+1| . .(P2$|
|00005480| 29 0d 1d 7e 1e 20 20 20 | 20 20 20 43 48 24 3d c1 |)..~.   |   CH$=.|
|00005490| 50 32 24 2c 50 6f 69 6e | 74 65 72 25 2c 31 29 0d |P2$,Poin|ter%,1).|
|000054a0| 1d 88 34 20 20 20 20 20 | 20 e7 20 43 48 24 3e 3d |..4     | . CH$>=|
|000054b0| 22 61 22 20 80 20 43 48 | 24 3c 3d 22 7a 22 20 8c |"a" . CH|$<="z" .|
|000054c0| 20 43 48 24 3d bd 28 97 | 28 43 48 24 29 80 20 26 | CH$=.(.|(CH$). &|
|000054d0| 44 46 29 0d 1d 92 12 20 | 20 20 20 20 20 50 54 24 |DF).... |     PT$|
|000054e0| 2b 3d 43 48 24 0d 1d 9c | 08 20 20 20 ed 0d 1d a6 |+=CH$...|.   ....|
|000054f0| 1c 20 20 20 50 32 24 3d | c0 50 32 24 2c a7 50 32 |.   P2$=|.P2$,.P2|
|00005500| 24 2c 22 20 22 29 2d 31 | 29 0d 1d b0 05 cd 0d 1d |$," ")-1|).......|
|00005510| ba 21 e7 20 c0 50 32 24 | 2c 31 29 3d 22 2d 22 20 |.!. .P2$|,1)="-" |
|00005520| 8c 20 f2 5f 53 79 6e 74 | 61 78 45 72 72 6f 72 0d |. ._Synt|axError.|
|00005530| 1d c4 05 e1 0d 1d ce 04 | 0d 1d d8 13 dd 20 f2 5f |........|..... ._|
|00005540| 53 79 6e 74 61 78 45 72 | 72 6f 72 0d 1d e2 38 85 |SyntaxEr|ror...8.|
|00005550| 20 32 30 30 31 2c 22 53 | 79 6e 74 61 78 3a 20 42 | 2001,"S|yntax: B|
|00005560| 61 73 43 72 75 6e 63 68 | 20 2d 68 65 6c 70 7c 3c |asCrunch| -help|<|
|00005570| 46 72 6f 6d 46 69 6c 65 | 3e 20 3c 54 6f 46 69 6c |FromFile|> <ToFil|
|00005580| 65 3e 22 0d 1d ec 05 e0 | 0d 1d f6 05 e1 0d 1e 00 |e>".....|........|
|00005590| 04 0d 1e 0a 10 dd 20 f2 | 5f 47 69 76 65 48 65 6c |...... .|_GiveHel|
|000055a0| 70 0d 1e 14 0b ea 20 54 | 65 78 74 24 0d 1e 1e be |p..... T|ext$....|
|000055b0| c8 99 20 22 4f 53 5f 50 | 72 65 74 74 79 50 72 69 |.. "OS_P|rettyPri|
|000055c0| 6e 74 22 2c 22 42 61 73 | 43 72 75 6e 63 68 20 77 |nt","Bas|Crunch w|
|000055d0| 69 6c 6c 20 74 61 6b 65 | 20 61 20 42 41 53 49 43 |ill take| a BASIC|
|000055e0| 20 70 72 6f 67 72 61 6d | 20 61 6e 64 20 63 6f 6d | program| and com|
|000055f0| 70 61 63 74 20 69 74 20 | 62 79 20 72 65 6d 6f 76 |pact it |by remov|
|00005600| 69 6e 67 20 52 45 4d 53 | 2c 20 73 70 61 63 65 73 |ing REMS|, spaces|
|00005610| 2c 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 73 2c 20 73 |, blank |lines, s|
|00005620| 68 6f 72 74 65 6e 69 6e | 67 20 76 61 72 69 61 62 |hortenin|g variab|
|00005630| 6c 65 73 2c 20 66 75 6e | 63 74 69 6f 6e 2f 70 72 |les, fun|ction/pr|
|00005640| 6f 63 65 64 75 72 65 20 | 6e 61 6d 65 73 2c 20 61 |ocedure |names, a|
|00005650| 6e 64 20 6a 6f 69 6e 69 | 6e 67 20 6c 69 6e 65 73 |nd joini|ng lines|
|00005660| 2e 22 2b bd 31 33 2b bd | 31 33 0d 1e 28 4b c8 99 |."+.13+.|13..(K..|
|00005670| 20 22 4f 53 5f 50 72 65 | 74 74 79 50 72 69 6e 74 | "OS_Pre|ttyPrint|
|00005680| 22 2c 22 53 79 6e 74 61 | 78 3a 20 42 61 73 43 72 |","Synta|x: BasCr|
|00005690| 75 6e 63 68 20 2d 68 65 | 6c 70 7c 3c 46 72 6f 6d |unch -he|lp|<From|
|000056a0| 46 69 6c 65 3e 20 3c 54 | 6f 46 69 6c 65 3e 22 2b |File> <T|oFile>"+|
|000056b0| bd 28 31 33 29 0d 1e 32 | 6f c8 99 20 22 4f 53 5f |.(13)..2|o.. "OS_|
|000056c0| 50 72 65 74 74 79 50 72 | 69 6e 74 22 2c 22 43 6f |PrettyPr|int","Co|
|000056d0| 6d 70 61 63 74 6f 72 20 | a9 20 4d 69 6b 65 20 48 |mpactor |. Mike H|
|000056e0| 61 72 72 69 73 6f 6e 22 | 2b bd 31 33 2b 22 4d 75 |arrison"|+.13+"Mu|
|000056f0| 6c 74 69 2d 74 61 73 6b | 69 6e 67 20 66 72 6f 6e |lti-task|ing fron|
|00005700| 74 20 65 6e 64 20 a9 20 | 53 74 75 61 72 74 20 48 |t end . |Stuart H|
|00005710| 69 63 6b 69 6e 62 6f 74 | 74 6f 6d 22 2b bd 31 33 |ickinbot|tom"+.13|
|00005720| 2b bd 31 33 0d 1e 3c 05 | e0 0d 1e 46 05 e1 0d ff |+.13..<.|...F....|
+--------+-------------------------+-------------------------+--------+--------+